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

Fix a semi-hidden missing indentation bug

remotes/eborden/master
Lennart Spitzner 2020-03-19 23:32:10 +01:00
parent 7b5c0dc4e3
commit 061c39b4e9
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Language/Haskell/Brittany/Internal/Layouters/Decl.hs
View File

@ -534,7 +534,9 @@ layoutPatternBindFinal alignmentToken binderDoc mPatDoc clauseDocs mWhereDocs ha
(ColBindingLine alignmentToken) (ColBindingLine alignmentToken)
[ docSeq (patPartInline ++ [guardPart]) [ docSeq (patPartInline ++ [guardPart])
, docSeq , docSeq
[appSep $ return binderDoc, docForceParSpacing $ return body] [ appSep $ return binderDoc
, docForceParSpacing $ docAddBaseY BrIndentRegular $ return body
]
] ]
] ]
++ wherePartMultiLine ++ wherePartMultiLine

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

@ -51,7 +51,10 @@ layoutStmt lstmt@(L _ stmt) = do
[ docCols [ docCols
ColBindStmt ColBindStmt
[ appSep patDoc [ appSep patDoc
, docSeq [appSep $ docLit $ Text.pack "<-", docForceParSpacing expDoc] , docSeq
[ appSep $ docLit $ Text.pack "<-"
, docAddBaseY BrIndentRegular $ docForceParSpacing expDoc
]
] ]
, docCols , docCols
ColBindStmt ColBindStmt