fix parsing of commit with no parents
This commit is contained in:
parent
860602a1e6
commit
11935c4d6f
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue