From de0851f97537132559cd65d7d3347e4a8a5989cb Mon Sep 17 00:00:00 2001
From: Evan Rutledge Borden <eborden@frontrowed.com>
Date: Sat, 25 Nov 2017 20:34:07 -0500
Subject: [PATCH] Use docAltFilter for consistency.

---
 .../Brittany/Internal/Layouters/Stmt.hs       | 24 ++++++++++---------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
index 6f95585..e1cf215 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Stmt.hs
@@ -64,17 +64,19 @@ layoutStmt lstmt@(L _ stmt) = do
           (docLit $ Text.pack "let")
           (docSetBaseAndIndent $ return bindDoc)
         ]
-      Just bindDocs ->
-        let letSeq = docSeq
-              [ appSep $ docLit $ Text.pack "let"
-              , docSetBaseAndIndent $ docLines $ return <$> bindDocs
-              ]
-            letRegular = docAddBaseY BrIndentRegular $ docPar
-              (docLit $ Text.pack "let")
-              (docSetBaseAndIndent $ docLines $ return <$> bindDocs)
-        in  case indentPolicy of
-              IndentPolicyLeft -> docAlt [letRegular]
-              _                -> docAlt [letSeq, letRegular]
+      Just bindDocs -> docAltFilter
+        [ ( indentPolicy /= IndentPolicyLeft
+          , docSeq
+            [ appSep $ docLit $ Text.pack "let"
+            , docSetBaseAndIndent $ docLines $ return <$> bindDocs
+            ]
+          )
+        , ( True
+          , docAddBaseY BrIndentRegular $ docPar
+            (docLit $ Text.pack "let")
+            (docSetBaseAndIndent $ docLines $ return <$> bindDocs)
+          )
+        ]
     RecStmt stmts _ _ _ _ _ _ _ _ _ -> do
       docSeq
         [ docLit (Text.pack "rec")