diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,5 +1,10 @@
 # doclayout
 
+## 0.4.0.1
+
+  * Add clause for Empty to renderList (#22).
+  * Remove upper bound for criterion
+
 ## 0.4
 
   * Expose `unfoldD` [API change].
diff --git a/doclayout.cabal b/doclayout.cabal
--- a/doclayout.cabal
+++ b/doclayout.cabal
@@ -1,5 +1,5 @@
 name:                doclayout
-version:             0.4
+version:             0.4.0.1
 synopsis:            A prettyprinting library for laying out text documents.
 description:         doclayout is a prettyprinting library for laying out
                      text documents, with several features not present
@@ -57,7 +57,7 @@
   Hs-Source-Dirs:  bench
   Build-Depends:   doclayout,
                    base >= 4.8 && < 5,
-                   criterion >= 1.0 && < 1.6,
+                   criterion >= 1.0,
                    deepseq,
                    text,
                    emojis >= 0.1.2,
diff --git a/src/Text/DocLayout.hs b/src/Text/DocLayout.hs
--- a/src/Text/DocLayout.hs
+++ b/src/Text/DocLayout.hs
@@ -367,6 +367,8 @@
 renderList :: HasChars a => [Doc a] -> DocState a
 renderList [] = return ()
 
+renderList (Empty : xs) = renderList xs
+
 renderList (Text off s : xs) = do
   outp off s
   renderList xs
diff --git a/test/test.hs b/test/test.hs
--- a/test/test.hs
+++ b/test/test.hs
@@ -15,8 +15,11 @@
 import Data.Semigroup
 #endif
 
+timeout :: Integer
+timeout = 480 * 10^(6 :: Int)
+
 main :: IO ()
-main = defaultMain $ localOption (mkTimeout (480 * 10^6)) $ testGroup "Tests" tests
+main = defaultMain $ localOption (mkTimeout timeout) $ testGroup "Tests" tests
 -- 8 minute timeout
 
 renderTest :: String -> Maybe Int -> Doc Text -> Text -> TestTree
@@ -33,6 +36,11 @@
       Nothing
       (lblock 4 (text "hi there" :: Doc Text))
       "hi t\nhere"
+
+  , renderTest "lblock with blank line"
+      Nothing
+      (Block 5 ["a", "", "b"] :: Doc Text)
+      "a\nb"
 
   , renderTest "nesting should not wrap"
       (Just 10)