From a13a137f681ccb5ee2d202faaee2cc2282163076 Mon Sep 17 00:00:00 2001
From: Evan Rutledge Borden <evan@evan-borden.com>
Date: Sun, 19 Nov 2017 15:09:29 -0500
Subject: [PATCH] Add left indent support for statements

This aligns left indent style `let` statements with their expression
form.
---
 .../Brittany/Internal/Layouters/Stmt.hs       | 22 +++++++++++--------
 1 file changed, 13 insertions(+), 9 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
index 1187876..6f95585 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
@@ -11,6 +11,7 @@ where
 
 import           Language.Haskell.Brittany.Internal.Types
 import           Language.Haskell.Brittany.Internal.LayouterBasics
+import           Language.Haskell.Brittany.Internal.Config.Types
 
 import           RdrName ( RdrName(..) )
 import           GHC ( runGhc, GenLocated(L), moduleNameString )
@@ -27,6 +28,7 @@ import {-# SOURCE #-} Language.Haskell.Brittany.Internal.Layouters.Expr
 
 layoutStmt :: ToBriDoc' (StmtLR RdrName RdrName (LHsExpr RdrName))
 layoutStmt lstmt@(L _ stmt) = do
+  indentPolicy <- mAsk <&> _conf_layout .> _lconfig_indentPolicy .> confUnpack
   docWrapNode lstmt $ case stmt of
     LastStmt body False _ -> do
       layoutExpr body
@@ -62,15 +64,17 @@ layoutStmt lstmt@(L _ stmt) = do
           (docLit $ Text.pack "let")
           (docSetBaseAndIndent $ return bindDoc)
         ]
-      Just bindDocs -> docAlt
-        [ docSeq
-          [ appSep $ docLit $ Text.pack "let"
-          , docSetBaseAndIndent $ docLines $ return <$> bindDocs
-          ]
-        , docAddBaseY BrIndentRegular $ docPar
-          (docLit $ Text.pack "let")
-          (docSetBaseAndIndent $ docLines $ return <$> bindDocs)
-        ]
+      Just bindDocs ->
+        let letSeq = docSeq
+              [ appSep $ docLit $ Text.pack "let"
+              , docSetBaseAndIndent $ docLines $ return <$> bindDocs
+              ]
+            letRegular = docAddBaseY BrIndentRegular $ docPar
+              (docLit $ Text.pack "let")
+              (docSetBaseAndIndent $ docLines $ return <$> bindDocs)
+        in  case indentPolicy of
+              IndentPolicyLeft -> docAlt [letRegular]
+              _                -> docAlt [letSeq, letRegular]
     RecStmt stmts _ _ _ _ _ _ _ _ _ -> do
       docSeq
         [ docLit (Text.pack "rec")