Match changes in GHC for T23885 backport to GHC 9.8

haskell · Aug 28, 2023 · 3ee955e · 3ee955e
1 parent 342b0b3
commit 3ee955e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
@@ -1011,9 +1011,11 @@ instance NFData NameAnn where
     `deepseq` c
     `deepseq` d
     `deepseq` ()
-  rnf (NameAnnRArrow a b) =
+  rnf (NameAnnRArrow a b c d e) =
               a
     `deepseq` b
+    `deepseq` c
+    `deepseq` d
     `deepseq` ()
   rnf (NameAnnQuote a b c) =
               a
@@ -1072,4 +1074,3 @@ instance NFData AnchorOperation where
 instance NFData DeltaPos where
   rnf (SameLine n)        = rnf n
   rnf (DifferentLine n m) = n `deepseq` m `deepseq` ()
-