diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:42:00 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-12-02 22:42:00 +0000 |
| commit | 95c16bfa3b6e598bf7101c9915dac2ca62fb7889 (patch) | |
| tree | 32ef66f0f3f584fb3e924c206e57c466eee41930 /Text/Pandoc/Readers | |
| parent | 42ba781b3dcb15a3a8fd4169fa03eeb316f05125 (diff) | |
| download | pandoc-95c16bfa3b6e598bf7101c9915dac2ca62fb7889.tar.gz | |
Moved failUnlessLHS to Text.Pandoc.Shared.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1498 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Readers')
| -rw-r--r-- | Text/Pandoc/Readers/Markdown.hs | 6 |
1 files changed, 0 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 |