Use docAltFilter for consistency.
parent
35f33c131c
commit
de0851f975
|
@ -64,17 +64,19 @@ layoutStmt lstmt@(L _ stmt) = do
|
||||||
(docLit $ Text.pack "let")
|
(docLit $ Text.pack "let")
|
||||||
(docSetBaseAndIndent $ return bindDoc)
|
(docSetBaseAndIndent $ return bindDoc)
|
||||||
]
|
]
|
||||||
Just bindDocs ->
|
Just bindDocs -> docAltFilter
|
||||||
let letSeq = docSeq
|
[ ( indentPolicy /= IndentPolicyLeft
|
||||||
[ appSep $ docLit $ Text.pack "let"
|
, docSeq
|
||||||
, docSetBaseAndIndent $ docLines $ return <$> bindDocs
|
[ appSep $ docLit $ Text.pack "let"
|
||||||
]
|
, docSetBaseAndIndent $ docLines $ return <$> bindDocs
|
||||||
letRegular = docAddBaseY BrIndentRegular $ docPar
|
]
|
||||||
(docLit $ Text.pack "let")
|
)
|
||||||
(docSetBaseAndIndent $ docLines $ return <$> bindDocs)
|
, ( True
|
||||||
in case indentPolicy of
|
, docAddBaseY BrIndentRegular $ docPar
|
||||||
IndentPolicyLeft -> docAlt [letRegular]
|
(docLit $ Text.pack "let")
|
||||||
_ -> docAlt [letSeq, letRegular]
|
(docSetBaseAndIndent $ docLines $ return <$> bindDocs)
|
||||||
|
)
|
||||||
|
]
|
||||||
RecStmt stmts _ _ _ _ _ _ _ _ _ -> do
|
RecStmt stmts _ _ _ _ _ _ _ _ _ -> do
|
||||||
docSeq
|
docSeq
|
||||||
[ docLit (Text.pack "rec")
|
[ docLit (Text.pack "rec")
|
||||||
|
|
Loading…
Reference in New Issue