From 8bb4ea5c83fb96842f85d2d167e96c4eae09d4ea Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <jaspervdj@gmail.com>
Date: Fri, 31 Dec 2010 13:28:31 +0100
Subject: Add resourceExists function

---
 src/Hakyll/Core/ResourceProvider.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Hakyll')

diff --git a/src/Hakyll/Core/ResourceProvider.hs b/src/Hakyll/Core/ResourceProvider.hs
index c522ab6..d5f2ea3 100644
--- a/src/Hakyll/Core/ResourceProvider.hs
+++ b/src/Hakyll/Core/ResourceProvider.hs
@@ -4,6 +4,7 @@
 --
 module Hakyll.Core.ResourceProvider
     ( ResourceProvider (..)
+    , resourceExists
     , resourceDigest
     , resourceModified
     ) where
@@ -29,6 +30,11 @@ data ResourceProvider = ResourceProvider
       resourceLazyByteString :: Identifier -> IO LB.ByteString
     }
 
+-- | Check if a given resource exists
+--
+resourceExists :: ResourceProvider -> Identifier -> Bool
+resourceExists provider = flip elem $ resourceList provider
+
 -- | Retrieve a digest for a given resource
 --
 resourceDigest :: ResourceProvider -> Identifier -> IO [Word8]
-- 
cgit v1.2.3