Improve vertical alignment

2018-03-30 10:51:37 +01:00 · 2018-03-30 10:51:37 +01:00 · 226da07815
parent 0dad5051df
commit 226da07815
1 changed files with 9 additions and 9 deletions
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@ -114,7 +114,7 @@ layoutExpr lexpr@(L _ expr) = do
    HsApp exp1@(L _ HsApp{}) exp2 -> do
      let gather :: [LHsExpr RdrName] -> LHsExpr RdrName -> (LHsExpr RdrName, [LHsExpr RdrName])
          gather list = \case
-            (L _ (HsApp l r)) -> gather (r:list) l
+            L _ (HsApp l r) -> gather (r:list) l
            x               -> (x, list)
      let (headE, paramEs) = gather [exp2] exp1
      let colsOrSequence = case headE of