From 59b2bb48aa1459e96f3406a2dfe91acd805a3598 Mon Sep 17 00:00:00 2001
From: Tom Sydney Kerckhove <syd@cs-syd.eu>
Date: Fri, 12 Dec 2025 13:35:37 +0100
Subject: [PATCH] Fix the parsing of author and committer for commits

---
 src/GitHub/Data/GitData.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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"