hexagoxel
/
brittany
1
0
Fork 0
Code Issues 117 Pull Requests 5 Packages Projects Releases 5 Wiki Activity

Minor cleanups

pull/97/head
Lennart Spitzner 2018-01-13 18:41:51 +01:00
parent cab1297585
commit 399e2f4f43
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
View File

@ -532,6 +532,7 @@ layoutExpr lexpr@(L _ expr) = do
expDoc1 <- docSharedWrapper layoutExpr exp1 expDoc1 <- docSharedWrapper layoutExpr exp1
mBindDocs <- layoutLocalBinds binds mBindDocs <- layoutLocalBinds binds
let let
ifIndentLeftElse :: a -> a -> a
ifIndentLeftElse x y = ifIndentLeftElse x y =
if indentPolicy == IndentPolicyLeft then x else y if indentPolicy == IndentPolicyLeft then x else y
-- this `docSetIndentLevel` might seem out of place, but is here due to -- this `docSetIndentLevel` might seem out of place, but is here due to
@ -557,17 +558,17 @@ layoutExpr lexpr@(L _ expr) = do
] ]
, docAddBaseY BrIndentRegular , docAddBaseY BrIndentRegular
$ docPar $ docPar
(appSep $ docLit $ Text.pack "let") (docLit $ Text.pack "let")
(docSetBaseAndIndent $ return bindDoc) (docSetBaseAndIndent $ return bindDoc)
] ]
, docAlt , docAlt
[ docSeq [ docSeq
[ ifIndentLeftElse id appSep $ docLit $ Text.pack "in " [ appSep $ docLit $ Text.pack $ ifIndentLeftElse "in" "in "
, ifIndentLeftElse docForceSingleline docSetBaseAndIndent expDoc1 , ifIndentLeftElse docForceSingleline docSetBaseAndIndent expDoc1
] ]
, docAddBaseY BrIndentRegular , docAddBaseY BrIndentRegular
$ docPar $ docPar
(appSep $ docLit $ Text.pack "in") (docLit $ Text.pack "in")
(docSetBaseY $ expDoc1) (docSetBaseY $ expDoc1)
] ]
] ]