diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/TEI.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/TEI.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/TEI.hs b/src/Text/Pandoc/Writers/TEI.hs index ddf1d76e3..a9ee5eece 100644 --- a/src/Text/Pandoc/Writers/TEI.hs +++ b/src/Text/Pandoc/Writers/TEI.hs @@ -205,14 +205,14 @@ tableRowToTEI :: PandocMonad m -> [[Block]] -> m (Doc Text) tableRowToTEI opts cols = - (inTagsIndented "row" . vcat) <$> mapM (tableItemToTEI opts) cols + inTagsIndented "row" . vcat <$> mapM (tableItemToTEI opts) cols tableHeadersToTEI :: PandocMonad m => WriterOptions -> [[Block]] -> m (Doc Text) tableHeadersToTEI opts cols = - (inTags True "row" [("role","label")] . vcat) <$> + inTags True "row" [("role","label")] . vcat <$> mapM (tableItemToTEI opts) cols tableItemToTEI :: PandocMonad m @@ -220,7 +220,7 @@ tableItemToTEI :: PandocMonad m -> [Block] -> m (Doc Text) tableItemToTEI opts item = - (inTags False "cell" [] . vcat) <$> mapM (blockToTEI opts) item + inTags False "cell" [] . vcat <$> mapM (blockToTEI opts) item -- | Convert a list of inline elements to TEI. inlinesToTEI :: PandocMonad m => WriterOptions -> [Inline] -> m (Doc Text) |