diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-26 22:20:44 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-07-26 22:20:44 -0700 |
| commit | 14c911ba06cdccd7e0264da4e19c428bb21a9212 (patch) | |
| tree | efd21752d0a91468e30578f1860a8b731e747597 /src/Text | |
| parent | 33fdea67b5757919dbf8a0913513690ea6bfaee4 (diff) | |
| download | pandoc-14c911ba06cdccd7e0264da4e19c428bb21a9212.tar.gz | |
Parsing: Removed failIfStrict.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 5 |
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 |