From 9e8571b848d8e3f2f68f98a7b73621fe7a7fea52 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Mon, 27 Nov 2017 23:00:26 +0100
Subject: [PATCH] Remove an unnecessary node in BriDoc construction; Add TODO

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

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index 38f3808..d108ed1 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -419,6 +419,8 @@ layoutExpr lexpr@(L _ expr) = do
             case indentPolicy of
               IndentPolicyLeft -> BrIndentRegular
               _ -> BrIndentSpecial 3
+      -- TODO: some of the alternatives (especially last and last-but-one)
+      -- overlap.
       docAltFilter
         [ -- if _ then _ else _
           (,) (not hasComments)
@@ -447,8 +449,7 @@ layoutExpr lexpr@(L _ expr) = do
         $ docSetParSpacing
         $ docAddBaseY BrIndentRegular
         $ docPar
-            ( docAddBaseY maySpecialIndent
-            $ docSeq
+            ( docSeq
               [ docNodeAnnKW lexpr Nothing $ appSep $ docLit $ Text.pack "if"
               , docNodeAnnKW lexpr (Just AnnIf) $ docForceSingleline ifExprDoc
               ])