From 2b303b2a2048bc9218feefc893018a5108953689 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Fri, 10 Jan 2020 16:32:18 +0100
Subject: [PATCH] Fix additional indentation bug for let-in

---
 src-literatetests/15-regressions.blt             | 16 ++++++++++++++++
 .../Haskell/Brittany/Internal/Layouters/Expr.hs  |  2 +-
 .../Internal/Transformations/Floating.hs         |  2 ++
 3 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/src-literatetests/15-regressions.blt b/src-literatetests/15-regressions.blt
index ce2d617..21eaf3d 100644
--- a/src-literatetests/15-regressions.blt
+++ b/src-literatetests/15-regressions.blt
@@ -782,3 +782,19 @@ func = abc + def
  where
   abc = 13
   def = 1
+
+#test AddBaseY/EnsureIndent float in effect
+
+zItazySunefp twgq nlyo lwojjoBiecao =
+  let mhIarjyai =
+        ukwAausnfcn
+          $ XojlsTOSR.vuwOvuvdAZUOJaa
+          $ XojlsTOSR.vkesForanLiufjeDI
+          $ XojlsTOSR.vkesForanLiufjeDI
+          $ XojlsTOSR.popjAyijoWarueeP
+          $ XojlsTOSR.jpwuPmafuDqlbkt nlyo
+          $ XojlsTOSR.jpwuPmafuDqlbkt xxneswWhxwng
+          $ XojlsTOSR.jpwuPmafuDqlbkt oloCuxeDdow
+          $ XojlsTOSR.jpwuPmafuDqlbkt (uwurrvoNnukzefuDjeh lwojjoBiecao nlyo)
+          $ etOslnoz lwojjoBiecao
+  in  kucotg $ (bbbr, Yoxe.Dwzbuzi.zrLokoTnuy piv)
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index df5ee2a..1a02ab8 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -770,7 +770,7 @@ layoutExpr lexpr@(L _ expr) = do
           addAlternativeCond (not hasComments) $ docSeq
             [ appSep $ docLit $ Text.pack "let"
             , docNodeAnnKW lexpr (Just AnnLet)
-            $ appSep $ docForceSingleline bindDoc
+              $ appSep $ docForceSingleline bindDoc
             , appSep $ docLit $ Text.pack "in"
             , docForceSingleline expDoc1
             ]
diff --git a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs
index 03c6c0c..4bb227b 100644
--- a/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs
+++ b/src/Language/Haskell/Brittany/Internal/Transformations/Floating.hs
@@ -132,6 +132,8 @@ transformSimplifyFloating = stepBO .> stepFull
         Just $ BDIndentLevelPop (BDAddBaseY ind x)
       BDAddBaseY ind (BDIndentLevelPushCur x) ->
         Just $ BDIndentLevelPushCur (BDAddBaseY ind x)
+      BDAddBaseY ind (BDEnsureIndent ind2 x) ->
+        Just $ BDEnsureIndent (mergeIndents ind ind2) x
       _ -> Nothing
     stepBO :: BriDoc -> BriDoc
     stepBO = -- traceFunctionWith "stepBO" (show . briDocToDocWithAnns) (show . briDocToDocWithAnns) $