diff options
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 6 | ||||
| -rw-r--r-- | Text/Pandoc/Shared.hs | 7 |
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 |