diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
index e6466ac..9022613 100644
--- 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
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
index 3fd5f8a..3aa3b5c 100644
--- 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