From 1728d4e60983e050be4bfb5b8c2e6065b4dd198a Mon Sep 17 00:00:00 2001
From: Marc Schreiber <marc.schreiber@fh-aachen.de>
Date: Wed, 3 May 2017 13:39:38 +0200
Subject: \textcolor works as inline and block command

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

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index 1c1aa4c62..58ed97b04 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -420,7 +420,7 @@ blockTextcolor :: PandocMonad m => LP m Blocks
 blockTextcolor = do
     skipopts 
     color <- braced
-    return <$> divWith ("",[],[("style","color: " ++ color)]) $ block
+    divWith ("",[],[("style","color: " ++ color)]) <$> grouped block
 
 graphicsPath :: PandocMonad m => LP m Blocks
 graphicsPath = do
-- 
cgit v1.2.3