From 98c922ad43b599ad38da8782de64bfb2d564fbac Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 23 Jul 2020 10:44:05 -0700
Subject: LaTeX reader: Add identifier in divs for ams theorem environments.

---
 src/Text/Pandoc/Readers/LaTeX.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index cd856b425..ebdee1b1a 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -1969,7 +1969,7 @@ theoremEnvironment name = do
                          RemarkStyle     -> B.emph
        let title = titleEmph (B.text (theoremName tspec) <> number)
                                       <> optTitle <> space
-       return $ divWith ("", [name], []) $ addTitle title
+       return $ divWith (fromMaybe "" mblabel, [name], []) $ addTitle title
               $ case theoremStyle tspec of
                   PlainStyle -> walk italicize bs
                   _          -> bs
-- 
cgit v1.2.3