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

fix parsing of commit with no parents

Browse source
This commit is contained in:
Joey Hess 2016-03-31 17:12:01 -04:00
parent 860602a1e6
commit 11935c4d6f
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Git/CatFile.hs
View file

@ -125,7 +125,7 @@ catCommit h commitref = go <$> catObjectDetails h commitref
parseCommit :: L.ByteString -> Maybe Commit parseCommit :: L.ByteString -> Maybe Commit
parseCommit b = Commit parseCommit b = Commit
<$> (extractSha . L8.unpack =<< field "tree") <$> (extractSha . L8.unpack =<< field "tree")
<*> (mapMaybe (extractSha . L8.unpack) <$> fields "parent") <*> Just (maybe [] (mapMaybe (extractSha . L8.unpack)) (fields "parent"))
<*> (parsemetadata <$> field "author") <*> (parsemetadata <$> field "author")
<*> (parsemetadata <$> field "committer") <*> (parsemetadata <$> field "committer")
<*> Just (L8.unpack $ L.intercalate (L.singleton nl) message) <*> Just (L8.unpack $ L.intercalate (L.singleton nl) message)