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 expDoc1 <- docSharedWrapper layoutExpr exp1
mBindDocs <- layoutLocalBinds binds mBindDocs <- layoutLocalBinds binds
let let
whenIndentLeftOr 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
-- ghc-exactprint's DP handling of "let" in particular. -- ghc-exactprint's DP handling of "let" in particular.
@ -552,7 +552,7 @@ layoutExpr lexpr@(L _ expr) = do
[ docAlt [ docAlt
[ docSeq [ docSeq
[ appSep $ docLit $ Text.pack "let" [ appSep $ docLit $ Text.pack "let"
, whenIndentLeftOr docForceSingleline docSetBaseAndIndent , ifIndentLeftElse docForceSingleline docSetBaseAndIndent
$ return bindDoc $ return bindDoc
] ]
, docAddBaseY BrIndentRegular , docAddBaseY BrIndentRegular
@ -562,8 +562,8 @@ layoutExpr lexpr@(L _ expr) = do
] ]
, docAlt , docAlt
[ docSeq [ docSeq
[ whenIndentLeftOr id appSep $ docLit $ Text.pack "in " [ ifIndentLeftElse id appSep $ docLit $ Text.pack "in "
, whenIndentLeftOr docForceSingleline docSetBaseAndIndent expDoc1 , ifIndentLeftElse docForceSingleline docSetBaseAndIndent expDoc1
] ]
, docAddBaseY BrIndentRegular , docAddBaseY BrIndentRegular
$ docPar $ docPar