14c911b · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Parsing: Removed failIfStrict.

14c911bJohn MacFarlane14 years ago

src/Text/Pandoc/Parsing.hs−5

@@ -48,7 +48,6 @@ module Text.Pandoc.Parsing ( (>>~),

48 withHorizDisplacement,

49 withRaw,

50 nullBlock,

51− failIfStrict,

52 failUnlessLHS,

51 failUnlessLHS,

53 escaped,

52 escaped,

54 characterReference,

53 characterReference,

@@ -392,10 +391,6 @@ withRaw parser = do

392nullBlock :: Parsec [Char] st Block

391nullBlock :: Parsec [Char] st Block

393nullBlock = anyChar >> return Null

392nullBlock = anyChar >> return Null

394

393

395−-- | Fail if reader is in strict markdown syntax mode.

396−failIfStrict :: Parsec [a] ParserState ()

397−failIfStrict = getOption readerStrict >>= guard . not

398−

399-- | Fail unless we're in literate haskell mode.

394-- | Fail unless we're in literate haskell mode.

400failUnlessLHS :: Parsec [tok] ParserState ()

395failUnlessLHS :: Parsec [tok] ParserState ()

401failUnlessLHS = getOption readerLiterateHaskell >>= guard

396failUnlessLHS = getOption readerLiterateHaskell >>= guard