summaryrefslogtreecommitdiff
path: root/utils/check-exact/ExactPrint.hs
diff options
context:
space:
mode:
Diffstat (limited to 'utils/check-exact/ExactPrint.hs')
-rw-r--r--utils/check-exact/ExactPrint.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs
index 277fcfcd3a..25ea557a27 100644
--- a/utils/check-exact/ExactPrint.hs
+++ b/utils/check-exact/ExactPrint.hs
@@ -2748,7 +2748,7 @@ exactDataDefn an exactHdr
, dd_cons = condecls, dd_derivs = derivings }) = do
annotationsToComments (epAnnAnns an) [AnnOpenP, AnnCloseP]
markEpAnn an $ case condecls of
- DataTypeCons _ -> AnnData
+ DataTypeCons _ _ -> AnnData
NewTypeCon _ -> AnnNewtype
markEpAnn an AnnInstance -- optional
mapM_ markAnnotated mb_ct