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

Fix let-in comment placement bug (fixes #110)

pull/132/head
Lennart Spitzner 2018-03-23 17:34:36 +01:00
parent bdd3b155f3
commit 0845142727
2 changed files with 18 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src-literatetests/15-regressions.blt
View File

@ -538,8 +538,16 @@ cs0 = 0 : [ c / Interval n | c <- cs | n <- [1..] ]
{-# LANGUAGE TemplateHaskell #-}
deriveFromJSON (unPrefix "assignPost") ''AssignmentPost
#test issue 111
#test issue 110
main = -- a
let --b
x = 1 -- x
y = 2 -- y
in do
print x
print y
#test issue 111
alternatives :: Parser (Maybe Text)
alternatives =
alternativeOne -- first try this one

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

@ -543,7 +543,9 @@ layoutExpr lexpr@(L _ expr) = do
(layoutPatternBindFinal Nothing binderDoc Nothing clauseDocs Nothing hasComments)
HsLet binds exp1 -> do
expDoc1 <- docSharedWrapper layoutExpr exp1
mBindDocs <- layoutLocalBinds binds
-- We jump through some ugly hoops here to ensure proper sharing.
mBindDocs <- mapM (fmap (fmap return) . docWrapNodeRest lexpr . return)
=<< layoutLocalBinds binds
let
ifIndentLeftElse :: a -> a -> a
ifIndentLeftElse x y =
@ -560,7 +562,7 @@ layoutExpr lexpr@(L _ expr) = do
Just [bindDoc] -> docAlt
[ docSeq
[ appSep $ docLit $ Text.pack "let"
, appSep $ docForceSingleline $ return bindDoc
, appSep $ docForceSingleline $ bindDoc
, appSep $ docLit $ Text.pack "in"
, docForceSingleline $ expDoc1
]
@ -569,12 +571,12 @@ layoutExpr lexpr@(L _ expr) = do
[ docSeq
[ appSep $ docLit $ Text.pack "let"
, ifIndentLeftElse docForceSingleline docSetBaseAndIndent
$ return bindDoc
$ bindDoc
]
, docAddBaseY BrIndentRegular
$ docPar
(docLit $ Text.pack "let")
(docSetBaseAndIndent $ return bindDoc)
(docSetBaseAndIndent $ bindDoc)
]
, docAlt
[ docSeq
@ -607,7 +609,7 @@ layoutExpr lexpr@(L _ expr) = do
[ docAddBaseY BrIndentRegular
$ docPar
(docLit $ Text.pack "let")
(docSetBaseAndIndent $ docLines $ return <$> bindDocs)
(docSetBaseAndIndent $ docLines $ bindDocs)
, docSeq
[ docLit $ Text.pack "in "
, docAddBaseY BrIndentRegular $ expDoc1
@ -618,7 +620,7 @@ layoutExpr lexpr@(L _ expr) = do
, docLines
[ docSeq
[ appSep $ docLit $ Text.pack "let"
, docSetBaseAndIndent $ docLines $ return <$> bindDocs
, docSetBaseAndIndent $ docLines $ bindDocs
]
, docSeq
[ appSep $ docLit $ Text.pack "in "
@ -631,7 +633,7 @@ layoutExpr lexpr@(L _ expr) = do
[ docAddBaseY BrIndentRegular
$ docPar
(docLit $ Text.pack "let")
(docSetBaseAndIndent $ docLines $ return <$> bindDocs)
(docSetBaseAndIndent $ docLines $ bindDocs)
, docAddBaseY BrIndentRegular
$ docPar
(docLit $ Text.pack "in")