diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 4 | ||||
| m--------- | utils/haddock | 0 |
2 files changed, 2 insertions, 2 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index f63e9e61e1..8bcc508288 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -1780,7 +1780,7 @@ instance ExactPrint (GRHS GhcPs (LocatedA (HsCmd GhcPs))) where instance ExactPrint (HsExpr GhcPs) where getAnnotationEntry (HsVar{}) = NoEntryVal getAnnotationEntry (HsUnboundVar an _) = fromAnn an - getAnnotationEntry (HsRecFld{}) = NoEntryVal + getAnnotationEntry (HsRecSel{}) = NoEntryVal getAnnotationEntry (HsOverLabel an _) = fromAnn an getAnnotationEntry (HsIPVar an _) = fromAnn an getAnnotationEntry (HsOverLit an _) = fromAnn an @@ -1827,7 +1827,7 @@ instance ExactPrint (HsExpr GhcPs) where printStringAtAA ob "`" printStringAtAA l "_" printStringAtAA cb "`" - -- exact x@(HsRecFld{}) = withPpr x + -- exact x@(HsRecSel{}) = withPpr x -- exact x@(HsOverLabel ann _ _) = withPpr x exact (HsIPVar _ (HsIPName n)) = printStringAdvance ("?" ++ unpackFS n) diff --git a/utils/haddock b/utils/haddock -Subproject 3fe1ccd2393837c4e8bc788368c18b40f7dac91 +Subproject 3b6a8774bdb543dad59b2618458b07feab8a55e |