fix parsing of commit with no parents

This commit is contained in:
Joey Hess 2016-03-31 17:12:01 -04:00
parent 860602a1e6
commit 11935c4d6f
Failed to extract signature

View file

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