AsciiDoc writer: Handle multiblock table cells.

Closes #1246.
This commit is contained in:
John MacFarlane 2014-05-03 21:31:53 -07:00
parent 41c89d51c7
commit 96c0c950ca

View file

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