Disable single-line HsApp with argument comments.
parent
6c187da8f8
commit
6aa537089d
|
@ -172,9 +172,10 @@ layoutExpr lexpr@(L _ expr) = do
|
||||||
_ -> docSeq
|
_ -> docSeq
|
||||||
headDoc <- docSharedWrapper layoutExpr headE
|
headDoc <- docSharedWrapper layoutExpr headE
|
||||||
paramDocs <- docSharedWrapper layoutExpr `mapM` paramEs
|
paramDocs <- docSharedWrapper layoutExpr `mapM` paramEs
|
||||||
|
hasComments <- hasAnyCommentsConnected exp2
|
||||||
runFilteredAlternative $ do
|
runFilteredAlternative $ do
|
||||||
-- foo x y
|
-- foo x y
|
||||||
addAlternative
|
addAlternativeCond (not hasComments)
|
||||||
$ colsOrSequence
|
$ colsOrSequence
|
||||||
$ appSep (docForceSingleline headDoc)
|
$ appSep (docForceSingleline headDoc)
|
||||||
: spacifyDocs (docForceSingleline <$> paramDocs)
|
: spacifyDocs (docForceSingleline <$> paramDocs)
|
||||||
|
|
Loading…
Reference in New Issue