git.iko.soy/hakyll
on master help sign in
Add resourceExists function
8bb4ea5Jasper Van der Jeugt
src/Hakyll/Core/ResourceProvider.hs+6
compare with master
unifiedsplit
@@ -4,6 +4,7 @@
4--
4--
5module Hakyll.Core.ResourceProvider
5module Hakyll.Core.ResourceProvider
6 ( ResourceProvider (..)
6 ( ResourceProvider (..)
7+ , resourceExists
7 , resourceDigest
8 , resourceDigest
8 , resourceModified
9 , resourceModified
9 ) where
10 ) where
@@ -29,6 +30,11 @@ data ResourceProvider = ResourceProvider
29 resourceLazyByteString :: Identifier -> IO LB.ByteString
30 resourceLazyByteString :: Identifier -> IO LB.ByteString
30 }
31 }
31
32
33+-- | Check if a given resource exists
34+--
35+resourceExists :: ResourceProvider -> Identifier -> Bool
36+resourceExists provider = flip elem $ resourceList provider
37+
32-- | Retrieve a digest for a given resource
38-- | Retrieve a digest for a given resource
33--
39--
34resourceDigest :: ResourceProvider -> Identifier -> IO [Word8]
40resourceDigest :: ResourceProvider -> Identifier -> IO [Word8]