git.iko.soy/typeable/pandoc
on master help sign in
Minor reformatting.
5bafe2cfiddlosopher
src/Text/Pandoc/Shared.hs+2−2
compare with master
unifiedsplit
@@ -369,8 +369,8 @@ nullBlock = anyChar >> return Null
369-- | Fail if reader is in strict markdown syntax mode.
369-- | Fail if reader is in strict markdown syntax mode.
370failIfStrict :: GenParser Char ParserState ()
370failIfStrict :: GenParser Char ParserState ()
371failIfStrict = do
371failIfStrict = do
372− state <- getState
372+ state <- getState
373− if stateStrict state then fail "strict mode" else return ()
373+ if stateStrict state then fail "strict mode" else return ()
374
374
375-- | Parses backslash, then applies character parser.
375-- | Parses backslash, then applies character parser.
376escaped :: GenParser Char st Char -- ^ Parser for character to escape
376escaped :: GenParser Char st Char -- ^ Parser for character to escape