git.iko.soy/typeable/pandoc
on master help sign in
Moved failUnlessLHS to Text.Pandoc.Shared.
95c16bffiddlosopher
Text/Pandoc/Readers/Markdown.hs−6
compare with master
unifiedsplit
@@ -103,12 +103,6 @@ failUnlessSmart = do
103 state <- getState
103 state <- getState
104 if stateSmart state then return () else fail "Smart typography feature"
104 if stateSmart state then return () else fail "Smart typography feature"
105
105
106−-- | Fail unless we're in literate haskell mode.
107−failUnlessLHS :: GenParser tok ParserState ()
108−failUnlessLHS = do
109− state <- getState
110− if stateLiterateHaskell state then return () else fail "Literate haskell feature"
111−
112-- | Parse a sequence of inline elements between square brackets,
106-- | Parse a sequence of inline elements between square brackets,
113-- including inlines between balanced pairs of square brackets.
107-- including inlines between balanced pairs of square brackets.
114inlinesInBalancedBrackets :: GenParser Char ParserState Inline
108inlinesInBalancedBrackets :: GenParser Char ParserState Inline
Text/Pandoc/Shared.hs+7
@@ -71,6 +71,7 @@ module Text.Pandoc.Shared (
71 withHorizDisplacement,
71 withHorizDisplacement,
72 nullBlock,
72 nullBlock,
73 failIfStrict,
73 failIfStrict,
74+ failUnlessLHS,
74 escaped,
75 escaped,
75 anyOrderedListMarker,
76 anyOrderedListMarker,
76 orderedListMarker,
77 orderedListMarker,
@@ -489,6 +490,12 @@ failIfStrict = do
489 state <- getState
490 state <- getState
490 if stateStrict state then fail "strict mode" else return ()
491 if stateStrict state then fail "strict mode" else return ()
491
492
493+-- | Fail unless we're in literate haskell mode.
494+failUnlessLHS :: GenParser tok ParserState ()
495+failUnlessLHS = do
496+ state <- getState
497+ if stateLiterateHaskell state then return () else fail "Literate haskell feature"
498+
492-- | Parses backslash, then applies character parser.
499-- | Parses backslash, then applies character parser.
493escaped :: GenParser Char st Char -- ^ Parser for character to escape
500escaped :: GenParser Char st Char -- ^ Parser for character to escape
494 -> GenParser Char st Inline
501 -> GenParser Char st Inline