haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

dataenc -> base64-bytestring

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-26 09:28:07 +02:00
parent 1069df2665
commit 300f0a4f4d
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Yesod/Helpers/Static.hs
View File

@ -49,8 +49,8 @@ import Web.Routes
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import Data.Digest.Pure.MD5 import Data.Digest.Pure.MD5
import qualified Codec.Binary.Base64Url import qualified Data.ByteString.Base64
import qualified Data.ByteString as S import qualified Data.ByteString.Char8 as S8
import qualified Data.Serialize import qualified Data.Serialize
#if TEST #if TEST
@ -188,8 +188,13 @@ caseGetFileList = do
-- --
-- This function returns the first 8 characters of the hash. -- This function returns the first 8 characters of the hash.
base64md5 :: L.ByteString -> String base64md5 :: L.ByteString -> String
base64md5 = take 8 base64md5 = map go
. Codec.Binary.Base64Url.encode . take 8
. S.unpack . S8.unpack
. Data.ByteString.Base64.encode
. Data.Serialize.encode . Data.Serialize.encode
. md5 . md5
where
go '+' = '-'
go '/' = '_'
go c = c

2
yesod.cabal
View File

@ -37,7 +37,7 @@ library
, pureMD5 >= 1.1.0.0 && < 2.2 , pureMD5 >= 1.1.0.0 && < 2.2
, random >= 1.0.0.2 && < 1.1 , random >= 1.0.0.2 && < 1.1
, cereal >= 0.2 && < 0.4 , cereal >= 0.2 && < 0.4
, dataenc >= 0.13.0.2 && < 0.14 , base64-bytestring >= 0.1 && < 0.2
, old-locale >= 1.0.0.2 && < 1.1 , old-locale >= 1.0.0.2 && < 1.1
, persistent >= 0.3.0 && < 0.4 , persistent >= 0.3.0 && < 0.4
, neither >= 0.1.0 && < 0.2 , neither >= 0.1.0 && < 0.2