aboutsummaryrefslogtreecommitdiff
path: root/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'Text/Pandoc')
-rw-r--r--Text/Pandoc/Readers/Markdown.hs6
-rw-r--r--Text/Pandoc/Shared.hs7
2 files changed, 7 insertions, 6 deletions
diff --git a/Text/Pandoc/Readers/Markdown.hs b/Text/Pandoc/Readers/Markdown.hs
index b2e0928c9..a6fe145c7 100644
--- a/Text/Pandoc/Readers/Markdown.hs
+++ b/Text/Pandoc/Readers/Markdown.hs
@@ -103,12 +103,6 @@ failUnlessSmart = do
state <- getState
if stateSmart state then return () else fail "Smart typography feature"
--- | 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"
-
-- | Parse a sequence of inline elements between square brackets,
-- including inlines between balanced pairs of square brackets.
inlinesInBalancedBrackets :: GenParser Char ParserState Inline
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