@@ -4,6 +4,7 @@
44--
55module Hakyll.Core.ResourceProvider
66 ( ResourceProvider (..)
7+ , resourceExists
78 , resourceDigest
89 , resourceModified
910 ) where
@@ -29,6 +30,11 @@ data ResourceProvider = ResourceProvider
2930 resourceLazyByteString :: Identifier -> IO LB.ByteString
3031 }
3132
33+-- | Check if a given resource exists
34+--
35+resourceExists :: ResourceProvider -> Identifier -> Bool
36+resourceExists provider = flip elem $ resourceList provider
37+
3238-- | Retrieve a digest for a given resource
3339--
3440resourceDigest :: ResourceProvider -> Identifier -> IO [Word8]