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

Remove an unnecessary node in BriDoc construction; Add TODO

pull/66/head
Lennart Spitzner 2017-11-27 23:00:26 +01:00
parent f6859d184f
commit 9e8571b848
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -419,6 +419,8 @@ layoutExpr lexpr@(L _ expr) = do
case indentPolicy of case indentPolicy of
IndentPolicyLeft -> BrIndentRegular IndentPolicyLeft -> BrIndentRegular
_ -> BrIndentSpecial 3 _ -> BrIndentSpecial 3
-- TODO: some of the alternatives (especially last and last-but-one)
-- overlap.
docAltFilter docAltFilter
[ -- if _ then _ else _ [ -- if _ then _ else _
(,) (not hasComments) (,) (not hasComments)
@ -447,8 +449,7 @@ layoutExpr lexpr@(L _ expr) = do
$ docSetParSpacing $ docSetParSpacing
$ docAddBaseY BrIndentRegular $ docAddBaseY BrIndentRegular
$ docPar $ docPar
( docAddBaseY maySpecialIndent ( docSeq
$ docSeq
[ docNodeAnnKW lexpr Nothing $ appSep $ docLit $ Text.pack "if" [ docNodeAnnKW lexpr Nothing $ appSep $ docLit $ Text.pack "if"
, docNodeAnnKW lexpr (Just AnnIf) $ docForceSingleline ifExprDoc , docNodeAnnKW lexpr (Just AnnIf) $ docForceSingleline ifExprDoc
]) ])