Remove crypto-conduit in favor of the simpler cryptohash-conduit.
This commit is contained in:
parent
0f987e4876
commit
31748ddbd0
@ -3,7 +3,7 @@
|
||||
pkgs=( ./yesod-routes
|
||||
./yesod-core
|
||||
./yesod-json
|
||||
./crypto-conduit
|
||||
./cryptohash-conduit
|
||||
./authenticate/authenticate
|
||||
./yesod-static
|
||||
./yesod-persistent
|
||||
|
||||
@ -43,7 +43,7 @@ library
|
||||
, cprng-aes == 0.5.2
|
||||
, crypto-api == 0.13
|
||||
, crypto-cipher-types == 0.0.9
|
||||
, crypto-conduit == 0.5.2.2
|
||||
, cryptohash-conduit == 0.1.0
|
||||
, crypto-numbers == 0.2.3
|
||||
, crypto-pubkey == 0.2.4
|
||||
, crypto-pubkey-types == 0.4.1
|
||||
|
||||
@ -73,14 +73,14 @@ import Data.List (intercalate)
|
||||
import Language.Haskell.TH
|
||||
import Language.Haskell.TH.Syntax as TH
|
||||
|
||||
import Crypto.Conduit (hashFile, sinkHash)
|
||||
import Crypto.Hash.CryptoAPI (MD5)
|
||||
import Crypto.Hash.Conduit (hashFile, sinkHash)
|
||||
import Crypto.Hash (MD5, Digest)
|
||||
import Control.Monad.Trans.State
|
||||
|
||||
import qualified Data.Byteable as Byteable
|
||||
import qualified Data.ByteString.Base64
|
||||
import qualified Data.ByteString.Char8 as S8
|
||||
import qualified Data.ByteString.Lazy as L
|
||||
import qualified Data.Serialize
|
||||
import Data.Text (Text, pack)
|
||||
import qualified Data.Text as T
|
||||
import qualified Data.Map as M
|
||||
@ -359,7 +359,7 @@ mkStaticFilesList fp fs routeConName makeHash = do
|
||||
|
||||
base64md5File :: Prelude.FilePath -> IO String
|
||||
base64md5File = fmap (base64 . encode) . hashFile
|
||||
where encode d = Data.Serialize.encode (d :: MD5)
|
||||
where encode d = Byteable.toBytes (d :: Digest MD5)
|
||||
|
||||
base64md5 :: L.ByteString -> String
|
||||
base64md5 lbs =
|
||||
@ -367,7 +367,7 @@ base64md5 lbs =
|
||||
$ runIdentity
|
||||
$ sourceList (L.toChunks lbs) $$ sinkHash
|
||||
where
|
||||
encode d = Data.Serialize.encode (d :: MD5)
|
||||
encode d = Byteable.toBytes (d :: Digest MD5)
|
||||
|
||||
base64 :: S.ByteString -> String
|
||||
base64 = map tr
|
||||
|
||||
@ -29,7 +29,7 @@ library
|
||||
, old-time >= 1.0
|
||||
, yesod-core >= 1.2 && < 1.3
|
||||
, base64-bytestring >= 0.1.0.1
|
||||
, cereal >= 0.3
|
||||
, byteable >= 0.1
|
||||
, bytestring >= 0.9.1.4
|
||||
, template-haskell
|
||||
, directory >= 1.0
|
||||
@ -41,8 +41,8 @@ library
|
||||
, http-types >= 0.7
|
||||
, unix-compat >= 0.2
|
||||
, conduit >= 0.5
|
||||
, crypto-conduit >= 0.4
|
||||
, cryptohash-cryptoapi >= 0.1.0
|
||||
, cryptohash-conduit >= 0.1
|
||||
, cryptohash >= 0.11
|
||||
, system-filepath >= 0.4.6 && < 0.5
|
||||
, system-fileio >= 0.3
|
||||
, data-default
|
||||
@ -80,8 +80,8 @@ test-suite tests
|
||||
, old-time
|
||||
, yesod-core
|
||||
, base64-bytestring
|
||||
, cereal
|
||||
, bytestring
|
||||
, byteable
|
||||
, template-haskell
|
||||
, directory
|
||||
, transformers
|
||||
@ -92,8 +92,8 @@ test-suite tests
|
||||
, http-types
|
||||
, unix-compat
|
||||
, conduit
|
||||
, crypto-conduit
|
||||
, cryptohash-cryptoapi
|
||||
, cryptohash-conduit
|
||||
, cryptohash
|
||||
, system-filepath
|
||||
, system-fileio
|
||||
, data-default
|
||||
|
||||
Loading…
Reference in New Issue
Block a user