summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
Diffstat (limited to 'utils')
-rw-r--r--utils/check-exact/ExactPrint.hs2
-rw-r--r--utils/check-exact/Main.hs3
2 files changed, 3 insertions, 2 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)
diff --git a/utils/check-exact/Main.hs b/utils/check-exact/Main.hs
index 8a2622edcd..147747d560 100644
--- a/utils/check-exact/Main.hs
+++ b/utils/check-exact/Main.hs
@@ -185,7 +185,8 @@ _tt = testOneFile changers "/home/alanz/mysrc/git.haskell.org/worktree/exactprin
-- "../../testsuite/tests/ghc-api/exactprint/WhereIn3a.hs" Nothing
-- "../../testsuite/tests/ghc-api/exactprint/Windows.hs" Nothing
-- "../../testsuite/tests/printer/Test19784.hs" Nothing
- "../../testsuite/tests/printer/Test19813.hs" Nothing
+ -- "../../testsuite/tests/printer/Test19813.hs" Nothing
+ "../../testsuite/tests/printer/Test19814.hs" Nothing
-- cloneT does not need a test, function can be retired