de01fdf · hakyll · git.iko.soy

git.iko.soy/hakyll

Use cryptohash instead of hopenssl

commitde01fdf9dd0144adbdcce8759e98c50e61e6055d authorJasper Van der Jeugt <m@jaspervdj.be> dateSat 27 Aug 2011, 12:16 (15 years ago) parent903dda0

2 files changed+5−7

compare with master

unifiedsplit

hakyll.cabal+1−1 src/Hakyll/Core/Resource/Provider.hs+4−6

hakyll.cabal+1−1

@@ -64,10 +64,10 @@ Library

6464 blaze-html >= 0.4 && < 0.6,

6565 bytestring >= 0.9 && < 1.0,

6666 containers >= 0.3 && < 1.0,

67+ cryptohash >= 0.7 && < 0.8,

6768 directory >= 1.0 && < 1.3,

6869 filepath >= 1.0 && < 2.0,

6970 hamlet >= 0.7 && < 0.9,

70− hopenssl >= 1.4 && < 1.7,

7171 mtl >= 1 && < 3.0,

7272 old-locale >= 1.0 && < 2.0,

7373 old-time >= 1.0 && < 1.3,

src/Hakyll/Core/Resource/Provider.hs+4−6

@@ -20,14 +20,12 @@ module Hakyll.Core.Resource.Provider

2020

2121import Control.Applicative ((<$>))

2222import Control.Concurrent (MVar, readMVar, modifyMVar_, newMVar)

23−import Control.Monad ((<=<))

24−import Data.Word (Word8)

2523import Data.Map (Map)

2624import qualified Data.Map as M

2725

26+import qualified Crypto.Hash.MD5 as MD5

27+import qualified Data.ByteString as B

2828import qualified Data.ByteString.Lazy as LB

29−import OpenSSL.Digest.ByteString.Lazy (digest)

30−import OpenSSL.Digest (MessageDigest (MD5))

3129

3230import Hakyll.Core.Store

3331import Hakyll.Core.Resource

@@ -60,8 +58,8 @@ resourceExists provider = flip elem $ resourceList provider

6058

6159-- | Retrieve a digest for a given resource

6260--

63−resourceDigest :: ResourceProvider -> Resource -> IO [Word8]

64−resourceDigest provider = digest MD5 <=< resourceLBS provider

61+resourceDigest :: ResourceProvider -> Resource -> IO B.ByteString

62+resourceDigest provider = fmap MD5.hashlazy . resourceLBS provider

6563

6664-- | Check if a resource was modified

6765--