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

fix parsing of empty content identifier

Browse source 
Seems very unlikely an empty content identifier would be used, but
quickcheck found this bug.
This commit is contained in:
Joey Hess 2019-02-21 13:44:09 -04:00
parent 9887a378fe
commit 1f6339ade7
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Logs/ContentIdentifier/Pure.hs
View file

@ -44,7 +44,7 @@ parseContentIdentifierList :: A.Parser [ContentIdentifier]
parseContentIdentifierList = reverse . catMaybes <$> valueparser []
where
valueparser l = do
b <- A8.takeWhile1 (/= ' ')
b <- A8.takeWhile (/= ' ')
let cid = if "!" `S8.isPrefixOf` b
then ContentIdentifier <$> fromB64Maybe' (S.drop 1 b)
else Just $ ContentIdentifier b