Fix a semi-hidden missing indentation bug

2020-03-19 23:32:10 +01:00 · 2020-03-19 23:32:10 +01:00 · 061c39b4e9
parent 7b5c0dc4e3
commit 061c39b4e9
2 changed files with 7 additions and 2 deletions
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
@ -534,7 +534,9 @@ layoutPatternBindFinal alignmentToken binderDoc mPatDoc clauseDocs mWhereDocs ha
               (ColBindingLine alignmentToken)
               [ docSeq (patPartInline ++ [guardPart])
               , docSeq
-                 [appSep $ return binderDoc, docForceParSpacing $ return body]
+                 [ appSep $ return binderDoc
+                 , docForceParSpacing $ docAddBaseY BrIndentRegular $ return body
+                 ]
               ]
             ]
          ++ wherePartMultiLine
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
@ -51,7 +51,10 @@ layoutStmt lstmt@(L _ stmt) = do
        [ docCols
          ColBindStmt
          [ appSep patDoc
-          , docSeq [appSep $ docLit $ Text.pack "<-", docForceParSpacing expDoc]
+          , docSeq
+            [ appSep $ docLit $ Text.pack "<-"
+            , docAddBaseY BrIndentRegular $ docForceParSpacing expDoc
+            ]
          ]
        , docCols
          ColBindStmt