@@ -217,6 +217,7 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do
217217 let makeCell [Plain x] = do d <- blockListToAsciiDoc opts [Plain x]
218218 return $ text "|" <> chomp d
219219 makeCell [Para x] = makeCell [Plain x]
220+ makeCell [] = return $ text "|"
220221 makeCell _ = return $ text "|" <> "[multiblock cell omitted]"
221222 let makeRow cells = hsep `fmap` mapM makeCell cells
222223 rows' <- mapM makeRow rows
@@ -227,7 +228,7 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do
227228 else 100000
228229 let maxwidth = maximum $ map offset (head':rows')
229230 let body = if maxwidth > colwidth then vsep rows' else vcat rows'
230− let border = text $ "|" ++ replicate ((min maxwidth colwidth) - 1) '='
231+ let border = text $ "|" ++ replicate (max 5 (min maxwidth colwidth) - 1) '='
231232 return $
232233 caption'' $$ tablespec $$ border $$ head'' $$ body $$ border $$ blankline
233234blockToAsciiDoc opts (BulletList items) = do