diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 5 | ||||
| m--------- | utils/haddock | 0 |
2 files changed, 3 insertions, 2 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index 67aa1f280d..3d493cfd22 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -2876,7 +2876,7 @@ instance ExactPrint (HsType GhcPs) where getAnnotationEntry (HsListTy an _) = fromAnn an getAnnotationEntry (HsTupleTy an _ _) = fromAnn an getAnnotationEntry (HsSumTy an _) = fromAnn an - getAnnotationEntry (HsOpTy _ _ _ _) = NoEntryVal + getAnnotationEntry (HsOpTy an _ _ _ _) = fromAnn an getAnnotationEntry (HsParTy an _) = fromAnn an getAnnotationEntry (HsIParamTy an _ _) = fromAnn an getAnnotationEntry (HsStarTy _ _) = NoEntryVal @@ -2926,7 +2926,8 @@ instance ExactPrint (HsType GhcPs) where markOpeningParen an markAnnotated tys markClosingParen an - exact (HsOpTy _an t1 lo t2) = do + exact (HsOpTy an promoted t1 lo t2) = do + when (isPromoted promoted) $ markEpAnn an AnnSimpleQuote markAnnotated t1 markAnnotated lo markAnnotated t2 diff --git a/utils/haddock b/utils/haddock -Subproject 559e41505e81d93939e9afa6aa9793b0a428924 +Subproject 58237d76c96325f25627bfd7cdad5b93364d29a |