diff --git a/src-literatetests/10-tests.blt b/src-literatetests/10-tests.blt
index 7164f77..95d8593 100644
--- a/src-literatetests/10-tests.blt
+++ b/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 #-}
diff --git a/src-literatetests/tests-context-free.blt b/src-literatetests/tests-context-free.blt
index 2795da8..6e8c523 100644
--- a/src-literatetests/tests-context-free.blt
+++ b/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 #-}
 
diff --git a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs b/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs
index 85a4ef8..ebf9b36 100644
--- a/src/Language/Haskell/Brittany/Internal/Layouters/IE.hs
+++ b/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