From ddd7c6b439588547d488574b5c019df029dc9d77 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Tue, 24 Oct 2017 00:00:34 +0200
Subject: [PATCH] Fix some rare issue and add some comments

(it is so rare i cannot reproduce anymore right now,
because the code that caused it has changed since..)
---
 .../Brittany/Internal/Layouters/Expr.hs       | 23 +++++++++++++++----
 1 file changed, 18 insertions(+), 5 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index 2808df2..90fd435 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -154,19 +154,32 @@ layoutExpr lexpr@(L _ expr) = docWrapNode lexpr $ case expr of
     expDoc1 <- docSharedWrapper layoutExpr exp1
     expDoc2 <- docSharedWrapper layoutExpr exp2
     docAlt
-      [ docSeq [appSep $ docForceSingleline expDoc1, docForceSingleline expDoc2]
-      , docSetParSpacing
+      [ -- func arg
+        docSeq [appSep $ docForceSingleline expDoc1, docForceSingleline expDoc2]
+      , -- func argline1
+        --   arglines
+        -- e.g.
+        -- func if x
+        --   then 1
+        --   else 2
+        docSetParSpacing
       $ docAddBaseY BrIndentRegular
       $ docSeq
         [ appSep $ docForceSingleline expDoc1
         , docForceParSpacing expDoc2
         ]
-      , docSetParSpacing
+      , -- func
+        --   arg
+        docSetParSpacing
       $ docAddBaseY BrIndentRegular
       $ docPar
         (docForceSingleline expDoc1)
-        expDoc2
-      , docAddBaseY BrIndentRegular
+        (docNonBottomSpacing expDoc2)
+      , -- fu
+        --   nc
+        --   ar
+        --     gument
+        docAddBaseY BrIndentRegular
       $ docPar
         expDoc1
         expDoc2