mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

strict bytestring encoders and decoders

Browse source 
Only had lazy ones before.

Already sped up a few parts of the code.
This commit is contained in:
Joey Hess 2019-01-01 14:54:06 -04:00
parent 9cc6d5549b
commit b3c69eaaf8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
14 changed files with 41 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Base64.hs
View file

@ -19,10 +19,10 @@ import Data.ByteString.UTF8 (fromString, toString)
import Data.Char
toB64 :: String -> String
toB64 = toString . B64.encode . L.toStrict . encodeBS
toB64 = toString . B64.encode . encodeBS
fromB64Maybe :: String -> Maybe String
fromB64Maybe s = either (const Nothing) (Just . decodeBS . L.fromStrict)
fromB64Maybe s = either (const Nothing) (Just . decodeBL . L.fromStrict)
(B64.decode $ fromString s)
fromB64 :: String -> String