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

Remove redundant parens

pull/132/head
Sergey Vinokurov 2018-03-30 10:52:22 +01:00
parent 226da07815
commit 545eff9e4f
No known key found for this signature in database
GPG Key ID: D6CD29530F98D6B8
1 changed files with 3 additions and 4 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

@ -137,7 +137,7 @@ layoutExpr lexpr@(L _ expr) = do
, docSetBaseY , docSetBaseY
$ docAddBaseY BrIndentRegular $ docAddBaseY BrIndentRegular
$ docLines $ docLines
$ (docForceSingleline <$> paramDocs) $ docForceSingleline <$> paramDocs
] ]
-- foo -- foo
-- x -- x
@ -243,11 +243,10 @@ layoutExpr lexpr@(L _ expr) = do
$ docSeq $ docSeq
[ appSep $ docForceSingleline leftOperandDoc [ appSep $ docForceSingleline leftOperandDoc
, docSeq , docSeq
$ (appListDocs <&> \(od, ed) -> docSeq $ appListDocs <&> \(od, ed) -> docSeq
[ appSep $ docForceSingleline od [ appSep $ docForceSingleline od
, appSep $ docForceSingleline ed , appSep $ docForceSingleline ed
] ]
)
, appSep $ docForceSingleline opLastDoc , appSep $ docForceSingleline opLastDoc
, (if allowPar then docForceParSpacing else docForceSingleline) , (if allowPar then docForceParSpacing else docForceSingleline)
expLastDoc expLastDoc
@ -1056,7 +1055,7 @@ layoutExpr lexpr@(L _ expr) = do
docLit $ Text.pack "_" docLit $ Text.pack "_"
EAsPat asName asExpr -> do EAsPat asName asExpr -> do
docSeq docSeq
[ docLit $ (lrdrNameToText asName) <> Text.pack "@" [ docLit $ lrdrNameToText asName <> Text.pack "@"
, layoutExpr asExpr , layoutExpr asExpr
] ]
EViewPat{} -> do EViewPat{} -> do