Add space after minus for ‘NegApp’
commit0065a9baf6d81a9c3c0c458b446a6f87b8d84c04
authorsphaso <sphaso@gmail.com>
dateSat 20 Jul 2019, 10:40 (7 years ago)
parent68bbc64
data/examples/declaration/value/function/negation-out.hs+6
@@ -1,2 +1,8 @@
11foo :: Int
22foo = (-2)
3+
4+bar :: Int
5+bar = -2
6+
7+baz :: Int
8+baz = - 2
data/examples/declaration/value/function/negation.hs+6
@@ -1,2 +1,8 @@
11foo :: Int
22foo = (-2)
3+
4+bar :: Int
5+bar = -2
6+
7+baz :: Int
8+baz = - 2
src/Ormolu/Printer/Meat/Declaration/Value.hs+1−1
@@ -456,7 +456,7 @@ p_hsExpr = \case
456456 placeHanging (exprPlacement (unLoc y)) $
457457 located y p_hsExpr
458458 NegApp NoExt e _ -> do
459− txt "-"
459+ txt "- "
460460 located e p_hsExpr
461461 HsPar NoExt e -> parens (located e p_hsExpr)
462462 SectionL NoExt x op -> do