Remove trailing whitespace from empty export list
commit3cc902102b057b0fd6dceaea74026e219d5e9508
authorsphaso <sphaso@gmail.com>
dateMon 17 Jun 2019, 21:04 (7 years ago)
parent2fd53f6
data/examples/module-header/multiline-empty-out.hsnew file+4
@@ -0,0 +1,4 @@
1+module Foo
2+ (
3+ )
4+where
data/examples/module-header/multiline-empty.hsnew file+2
@@ -0,0 +1,2 @@
1+module Foo (
2+ ) where
src/Ormolu/Printer/Meat/ImportExport.hs+5−1
@@ -18,7 +18,11 @@ import Ormolu.Printer.Meat.Common
1818import Ormolu.Utils
1919
2020p_hsmodExports :: [LIE GhcPs] -> R ()
21−p_hsmodExports xs = do
21+p_hsmodExports [] = do
22+ txt "("
23+ breakpoint'
24+ txt ")"
25+p_hsmodExports xs =
2226 parens . velt $ withSep comma (sitcc . located' p_lie) xs
2327
2428p_hsmodImport :: ImportDecl GhcPs -> R ()