Disable single-line HsApp with argument comments.

pull/215/head
Matt Noonan 2019-02-04 15:10:55 -05:00
parent 6c187da8f8
commit 6aa537089d
1 changed files with 2 additions and 1 deletions

View File

@ -172,9 +172,10 @@ layoutExpr lexpr@(L _ expr) = do
_ -> docSeq
headDoc <- docSharedWrapper layoutExpr headE
paramDocs <- docSharedWrapper layoutExpr `mapM` paramEs
hasComments <- hasAnyCommentsConnected exp2
runFilteredAlternative $ do
-- foo x y
addAlternative
addAlternativeCond (not hasComments)
$ colsOrSequence
$ appSep (docForceSingleline headDoc)
: spacifyDocs (docForceSingleline <$> paramDocs)