From 14c911ba06cdccd7e0264da4e19c428bb21a9212 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Thu, 26 Jul 2012 22:20:44 -0700
Subject: Parsing: Removed failIfStrict.

---
 src/Text/Pandoc/Parsing.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/Text')

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
-- 
cgit v1.2.3