From 466ff237ff4d9417aecc77ba05acdd784dd8674b Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Mon, 27 Nov 2017 23:05:47 +0100
Subject: [PATCH] Add some comments/examples in layoutStmt

---
 .../Brittany/Internal/Layouters/Stmt.hs        | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
index 5bd33d3..3cc40f1 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
@@ -55,27 +55,37 @@ layoutStmt lstmt@(L _ stmt) = do
                                 -- heh.
       Just []        -> docLit $ Text.pack "let" -- this probably never happens
       Just [bindDoc] -> docAltFilter
-        [ ( indentPolicy /= IndentPolicyLeft
+        [ -- let bind = expr
+          ( indentPolicy /= IndentPolicyLeft
           , docCols
             ColDoLet
             [ appSep $ docLit $ Text.pack "let"
             , docSetBaseAndIndent $ return bindDoc
             ]
           )
-        , ( True
+        , -- let
+          --   bind = expr
+          ( True
           , docAddBaseY BrIndentRegular $ docPar
             (docLit $ Text.pack "let")
             (docSetBaseAndIndent $ return bindDoc)
           )
         ]
       Just bindDocs -> docAltFilter
-        [ ( indentPolicy /= IndentPolicyLeft
+        [ -- let aaa = expra
+          --     bbb = exprb
+          --     ccc = exprc
+          ( indentPolicy /= IndentPolicyLeft
           , docSeq
             [ appSep $ docLit $ Text.pack "let"
             , docSetBaseAndIndent $ docLines $ return <$> bindDocs
             ]
           )
-        , ( True
+        , -- let
+          --   aaa = expra
+          --   bbb = exprb
+          --   ccc = exprc
+          ( True
           , docAddBaseY BrIndentRegular $ docPar
             (docLit $ Text.pack "let")
             (docSetBaseAndIndent $ docLines $ return <$> bindDocs)