aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:21:00 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:21:00 -0700
commite797ab9136115caab3d162162bf9d231afc514a0 (patch)
tree546dfa4100be0b834560fdaa61236a29fb439011 /src/Text/Pandoc
parent14c911ba06cdccd7e0264da4e19c428bb21a9212 (diff)
downloadpandoc-e797ab9136115caab3d162162bf9d231afc514a0.tar.gz
Textile reader: Replace failIfStrict with guardEnabled.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Textile.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs
index 65aa144c2..6e5ab2791 100644
--- a/src/Text/Pandoc/Readers/Textile.hs
+++ b/src/Text/Pandoc/Readers/Textile.hs
@@ -273,7 +273,7 @@ rawHtmlBlock = try $ do
-- | Raw block of LaTeX content
rawLaTeXBlock' :: Parser [Char] ParserState Block
rawLaTeXBlock' = do
- failIfStrict
+ guardEnabled Ext_raw_tex
RawBlock "latex" <$> (rawLaTeXBlock <* spaces)
@@ -464,11 +464,11 @@ endline = try $ do
rawHtmlInline :: Parser [Char] ParserState Inline
rawHtmlInline = RawInline "html" . snd <$> htmlTag isInlineTag
-
+
-- | Raw LaTeX Inline
rawLaTeXInline' :: Parser [Char] ParserState Inline
rawLaTeXInline' = try $ do
- failIfStrict
+ guardEnabled Ext_raw_tex
rawLaTeXInline
-- | Textile standard link syntax is "label":target. But we