From 6aa537089d6e93c8080ef0c009801cfa2b303e8c Mon Sep 17 00:00:00 2001
From: Matt Noonan <matt.noonan@crowdstrike.com>
Date: Mon, 4 Feb 2019 15:10:55 -0500
Subject: [PATCH] Disable single-line HsApp with argument comments.

---
 src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
index caf51a7..dd0639d 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
+++ b/src/Language/Haskell/Brittany/Internal/Layouters/Expr.hs
@@ -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)