aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-05-03 21:31:53 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-05-03 21:31:53 -0700
commit96c0c950cab8b42d5d6b8b1a6f1fb20f7f4a5aae (patch)
treef7020db3f2118e1ee0485ce17b5b968b33d8946f /src/Text/Pandoc
parent41c89d51c7b3d0099e72c0693bfd413bb4498de9 (diff)
downloadpandoc-96c0c950cab8b42d5d6b8b1a6f1fb20f7f4a5aae.tar.gz
AsciiDoc writer: Handle multiblock table cells.
Closes #1246.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/AsciiDoc.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index e5868172e..15579cba2 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -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