@@ -466,7 +466,7 @@ height = length . lines . render Nothing
467block :: (String -> String) -> Int -> Doc -> Doc
467block :: (String -> String) -> Int -> Doc -> Doc
468block filler width d
468block filler width d
469− | width < 1 && not (isEmpty d) = error "Text.Pandoc.Pretty.block: width < 1"
469+ | width < 1 && not (isEmpty d) = block filler 1 d
470 | otherwise = Doc $ singleton $ Block width $ map filler
470 | otherwise = Doc $ singleton $ Block width $ map filler
471 $ chop width $ render (Just width) d
471 $ chop width $ render (Just width) d