From 213e82b47669fb2a1a945c04a72b147a05d32ba5 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Tue, 17 Apr 2018 06:03:15 +0200
Subject: [PATCH] Fix if-then-else paragraph layouting

---
 src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index a7848eb..9116c79 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -456,13 +456,13 @@ layoutExpr lexpr@(L _ expr) = do
               (docLines
                 [ docAddBaseY BrIndentRegular
                 $ docNodeAnnKW lexpr (Just AnnThen)
-                $ docAlt
+                $ docNonBottomSpacing $ docAlt
                   [ docSeq [appSep $ docLit $ Text.pack "then", docForceParSpacing thenExprDoc]
                   , docAddBaseY BrIndentRegular
                   $ docPar (docLit $ Text.pack "then") thenExprDoc
                   ]
                 , docAddBaseY BrIndentRegular
-                $ docAlt
+                $ docNonBottomSpacing $ docAlt
                   [ docSeq [appSep $ docLit $ Text.pack "else", docForceParSpacing elseExprDoc]
                   , docAddBaseY BrIndentRegular
                   $ docPar (docLit $ Text.pack "else") elseExprDoc