@@ -48,7 +48,6 @@ module Text.Pandoc.Parsing ( (>>~),
4848 withHorizDisplacement,
4949 withRaw,
5050 nullBlock,
51− failIfStrict,
5251 failUnlessLHS,
5352 escaped,
5453 characterReference,
@@ -392,10 +391,6 @@ withRaw parser = do
392391nullBlock :: Parsec [Char] st Block
393392nullBlock = anyChar >> return Null
394393
395−-- | Fail if reader is in strict markdown syntax mode.
396−failIfStrict :: Parsec [a] ParserState ()
397−failIfStrict = getOption readerStrict >>= guard . not
398−
399394-- | Fail unless we're in literate haskell mode.
400395failUnlessLHS :: Parsec [tok] ParserState ()
401396failUnlessLHS = getOption readerLiterateHaskell >>= guard