aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/LaTeX.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index cdd2c1362..b6bc039df 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -2417,8 +2417,11 @@ addTableCaption = walkM go
(sLabels st) }
return $ caption Nothing (plain ils) -- add number??
(Nothing, _) -> return c
- return $ maybe id (\ident -> Div (ident, [], []) . (:[])) mblabel $
- Table attr capt spec th tb tf
+ let attr' = case (attr, mblabel) of
+ ((_,classes,kvs), Just ident) ->
+ (ident,classes,kvs)
+ _ -> attr
+ return $ Table attr' capt spec th tb tf
go x = return x
block :: PandocMonad m => LP m Blocks