git.iko.soy/ormolu
on master help sign in
Fix printing of backticks around wildcards in operator position
a7265dfwaddlaw
data/examples/declaration/value/function/typed-hole-out.hsnew file+5
compare with master
unifiedsplit
@@ -0,0 +1,5 @@
1+foo = 1 `_` 2
2+
3+bar = 1 `_a` 2
4+
5+baz = _ `something` _
data/examples/declaration/value/function/typed-hole.hsnew file+5
@@ -0,0 +1,5 @@
1+foo = 1 `_` 2
2+
3+bar = 1 `_a` 2
4+
5+baz = _ `something` _
src/Ormolu/Printer/Meat/Declaration/Value.hs+4−1
@@ -432,7 +432,10 @@ p_hsExpr = \case
432 OpApp NoExt x op y -> do
432 OpApp NoExt x op y -> do
433 located x p_hsExpr
433 located x p_hsExpr
434 space
434 space
435+ let opWrapper = case unLoc op of
436+ EWildPat NoExt -> backticks
437+ _ -> id
435− located op p_hsExpr
438+ located op (opWrapper . p_hsExpr)
436 placeHanging (exprPlacement (unLoc y)) $
439 placeHanging (exprPlacement (unLoc y)) $
437 located y p_hsExpr
440 located y p_hsExpr
438 NegApp NoExt e _ -> do
441 NegApp NoExt e _ -> do