strict bytestring encoders and decoders

Only had lazy ones before. Already sped up a few parts of the code.
2019-01-01 14:54:06 -04:00 · 2019-01-01 14:54:06 -04:00 · b3c69eaaf8
commit b3c69eaaf8
parent 9cc6d5549b
14 changed files with 41 additions and 25 deletions
--- a/Annex/Link.hs
+++ b/Annex/Link.hs
@ -228,7 +228,7 @@ unableToRestage mf = unwords
 - lines. -}
 parseLinkOrPointer :: L.ByteString -> Maybe Key
 parseLinkOrPointer = parseLinkOrPointer' 
-	. decodeBS . L.take (fromIntegral maxPointerSz)
+	. decodeBL . L.take (fromIntegral maxPointerSz)
  where

 {- Want to avoid buffering really big files in git into