strict bytestring encoders and decoders

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

View file

@ -111,7 +111,7 @@ catKey ref = go =<< catObjectMetaData ref
{- Gets a symlink target. -}
catSymLinkTarget :: Sha -> Annex String
catSymLinkTarget sha = fromInternalGitPath . decodeBS <$> get
catSymLinkTarget sha = fromInternalGitPath . decodeBL <$> get
where
-- Avoid buffering the whole file content, which might be large.
-- 8192 is enough if it really is a symlink.