Match changes in wip/az/T23885-unicode-funtycon

haskell · Sep 8, 2023 · d073163 · d073163
1 parent 1130973
commit d073163
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
@@ -1011,9 +1011,12 @@ 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` e
     `deepseq` ()
   rnf (NameAnnQuote a b c) =
               a
@@ -1072,4 +1075,3 @@ instance NFData AnchorOperation where
 instance NFData DeltaPos where
   rnf (SameLine n)        = rnf n
   rnf (DifferentLine n m) = n `deepseq` m `deepseq` ()
-