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