diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-05-09 23:34:47 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2021-05-12 20:27:10 -0400 |
| commit | bdcba23143292b737f3766e6cd509f0619bdaab4 (patch) | |
| tree | 67a2eb2e6ab1947cdcf42f131b1c23eb0387f30d /utils | |
| parent | a60f6eb58291816df89b53deeba7f84e955f4010 (diff) | |
| download | haskell-bdcba23143292b737f3766e6cd509f0619bdaab4.tar.gz | |
EPA: record annotations for braces in LetStmt
Closes #19814
(cherry picked from commit c3868451e974ee16762a1804d568afea8ed691c7)
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/check-exact/ExactPrint.hs | 2 | ||||
| -rw-r--r-- | utils/check-exact/Main.hs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/utils/check-exact/ExactPrint.hs b/utils/check-exact/ExactPrint.hs index cca7afcf73..0ee82c7f4b 100644 --- a/utils/check-exact/ExactPrint.hs +++ b/utils/check-exact/ExactPrint.hs @@ -1435,7 +1435,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 78f98d4fe2..fe193c32ec 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 |