aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:20:44 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-07-26 22:20:44 -0700
commit14c911ba06cdccd7e0264da4e19c428bb21a9212 (patch)
treeefd21752d0a91468e30578f1860a8b731e747597 /src/Text
parent33fdea67b5757919dbf8a0913513690ea6bfaee4 (diff)
downloadpandoc-14c911ba06cdccd7e0264da4e19c428bb21a9212.tar.gz
Parsing: Removed failIfStrict.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Parsing.hs5
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index ab35892dc..16eee6de5 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -48,7 +48,6 @@ module Text.Pandoc.Parsing ( (>>~),
withHorizDisplacement,
withRaw,
nullBlock,
- failIfStrict,
failUnlessLHS,
escaped,
characterReference,
@@ -392,10 +391,6 @@ withRaw parser = do
nullBlock :: Parsec [Char] st Block
nullBlock = anyChar >> return Null
--- | Fail if reader is in strict markdown syntax mode.
-failIfStrict :: Parsec [a] ParserState ()
-failIfStrict = getOption readerStrict >>= guard . not
-
-- | Fail unless we're in literate haskell mode.
failUnlessLHS :: Parsec [tok] ParserState ()
failUnlessLHS = getOption readerLiterateHaskell >>= guard