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

Change function name to if/else

pull/97/head
Evan Rutledge Borden 2017-12-31 00:11:10 -05:00
parent f1b49b082f
commit cab1297585
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -532,7 +532,7 @@ layoutExpr lexpr@(L _ expr) = do
expDoc1 <- docSharedWrapper layoutExpr exp1
mBindDocs <- layoutLocalBinds binds
let
whenIndentLeftOr x y =
ifIndentLeftElse x y =
if indentPolicy == IndentPolicyLeft then x else y
-- this `docSetIndentLevel` might seem out of place, but is here due to
-- ghc-exactprint's DP handling of "let" in particular.
@ -552,7 +552,7 @@ layoutExpr lexpr@(L _ expr) = do
[ docAlt
[ docSeq
[ appSep $ docLit $ Text.pack "let"
, whenIndentLeftOr docForceSingleline docSetBaseAndIndent
, ifIndentLeftElse docForceSingleline docSetBaseAndIndent
$ return bindDoc
]
, docAddBaseY BrIndentRegular
@ -562,8 +562,8 @@ layoutExpr lexpr@(L _ expr) = do
]
, docAlt
[ docSeq
[ whenIndentLeftOr id appSep $ docLit $ Text.pack "in "
, whenIndentLeftOr docForceSingleline docSetBaseAndIndent expDoc1
[ ifIndentLeftElse id appSep $ docLit $ Text.pack "in "
, ifIndentLeftElse docForceSingleline docSetBaseAndIndent expDoc1
]
, docAddBaseY BrIndentRegular
$ docPar