Only expand empty binding list with comments

src-literatetests/10-tests.blt

@@ -786,6 +786,9 @@ import           Test                                     ( Thing( With
                                                                  -- !
                                                                  )
                                                           )
+#test prefer-dense-empty-list
+import           VeryLongModuleNameThatCouldEvenCauseAnEmptyBindingListToExpandIntoMultipleLine
+                                                          ( )
 
 #test preamble full-preamble
 {-# LANGUAGE BangPatterns #-}

src-literatetests/tests-context-free.blt

@@ -793,6 +793,9 @@ import Test ( Thing( With
                    )
             )
 
+#test prefer-dense-empty-list
+import VeryLongModuleNameThatCouldEvenCauseAnEmptyBindingListToExpandIntoMultipleLine ()
+
 #test preamble full-preamble
 {-# LANGUAGE BangPatterns #-}
 

src/Language/Haskell/Brittany/Internal/Layouters/IE.hs

@@ -118,8 +118,11 @@ layoutLLIEs llies = do
   case ieDs of
     [] -> docAltFilter
             [ (not hasComments, docLit $ Text.pack "()")
-            , (otherwise, docPar (docSeq [docParenLSep, docWrapNode llies docEmpty])
-                       docParenR)
+            , ( hasComments
+              , docPar
+                  (docSeq [docParenLSep, docWrapNodeRest llies docEmpty])
+                  docParenR
+              )
             ]
     (ieDsH:ieDsT) ->
       docAltFilter