Moved failUnlessLHS to Text.Pandoc.Shared.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1498 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 7 insertions, 0 deletions

diff --git a/Text/Pandoc/Shared.hs b/Text/Pandoc/Shared.hs
index 0d137e9a9..799c35e0f 100644
--- a/Text/Pandoc/Shared.hs
+++ b/Text/Pandoc/Shared.hs
@@ -71,6 +71,7 @@ module Text.Pandoc.Shared (
                      withHorizDisplacement,
                      nullBlock,
                      failIfStrict,
+                     failUnlessLHS,
                      escaped,
                      anyOrderedListMarker,
                      orderedListMarker,
@@ -489,6 +490,12 @@ failIfStrict = do
   state <- getState
   if stateStrict state then fail "strict mode" else return ()
 
+-- | Fail unless we're in literate haskell mode.
+failUnlessLHS :: GenParser tok ParserState ()
+failUnlessLHS = do
+  state <- getState
+  if stateLiterateHaskell state then return () else fail "Literate haskell feature"
+
 -- | Parses backslash, then applies character parser.
 escaped :: GenParser Char st Char  -- ^ Parser for character to escape
         -> GenParser Char st Inline