diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-31 13:28:31 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2010-12-31 13:28:31 +0100 |
| commit | 8bb4ea5c83fb96842f85d2d167e96c4eae09d4ea (patch) | |
| tree | f4ffc299175585583c8ce40af4cfaa2024ef4d1a /src/Hakyll | |
| parent | 5b67f20eab333a0a63eddae93fa114d8f5158c61 (diff) | |
| download | hakyll-8bb4ea5c83fb96842f85d2d167e96c4eae09d4ea.tar.gz | |
Add resourceExists function
Diffstat (limited to 'src/Hakyll')
| -rw-r--r-- | src/Hakyll/Core/ResourceProvider.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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] |