summaryrefslogtreecommitdiff
path: root/utils/check-exact/ExactPrint.hs
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2021-05-09 23:34:47 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-05-11 23:01:03 -0400
commitc3868451e974ee16762a1804d568afea8ed691c7 (patch)
treec014f46414c464067b4deb6bee99e83661847317 /utils/check-exact/ExactPrint.hs
parentc77179492032f4d8752481ad3e0d65d7eacb74f9 (diff)
downloadhaskell-c3868451e974ee16762a1804d568afea8ed691c7.tar.gz
EPA: record annotations for braces in LetStmt
Closes #19814
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 5047346111..454db7fce4 100644
--- a/utils/check-exact/ExactPrint.hs
+++ b/utils/check-exact/ExactPrint.hs
@@ -1434,7 +1434,7 @@ instance ExactPrint (HsLocalBinds GhcPs) where
when (not $ isEmptyValBinds valbinds) $ setExtraDP (Just anc)
_ -> return ()
- markAnnotatedWithLayout valbinds
+ markAnnList True an $ markAnnotatedWithLayout valbinds
exact (HsIPBinds an bs)
= markAnnList True an (markLocatedAAL an al_rest AnnWhere >> markAnnotated bs)