diff --git a/src/GitHub/Data/GitData.hs b/src/GitHub/Data/GitData.hs index 41158632..5652d0de 100644 --- a/src/GitHub/Data/GitData.hs +++ b/src/GitHub/Data/GitData.hs @@ -208,8 +208,8 @@ instance FromJSON Commit where <*> o .: "parents" <*> o .: "url" <*> o .: "commit" - <*> o .:? "committer" - <*> o .:? "author" + <*> (o .:? "committer" <|> pure Nothing) + <*> (o .:? "author" <|> pure Nothing) <*> o .:? "files" .!= V.empty <*> o .:? "stats"