@@ -218,7 +218,8 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do
218 return $ text "|" <> chomp d
218 return $ text "|" <> chomp d
219 makeCell [Para x] = makeCell [Plain x]
219 makeCell [Para x] = makeCell [Plain x]
220 makeCell [] = return $ text "|"
220 makeCell [] = return $ text "|"
221− makeCell _ = return $ text "|" <> "[multiblock cell omitted]"
221+ makeCell bs = do d <- blockListToAsciiDoc opts bs
222+ return $ text "a|" $$ d
222 let makeRow cells = hsep `fmap` mapM makeCell cells
223 let makeRow cells = hsep `fmap` mapM makeCell cells
223 rows' <- mapM makeRow rows
224 rows' <- mapM makeRow rows
224 head' <- makeRow headers
225 head' <- makeRow headers