diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 22:44:01 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-08-28 22:44:01 +0000 |
commit | 5bafe2c9fb81e1e6167410ad61366a6a941a48b6 (patch) | |
tree | 16286d230b6f6e859c2a189bfb24b1cabbeee6bc /src/Text | |
parent | fcb91e8e51808450c1bc5e8c1a72a0f7782c6270 (diff) | |
download | pandoc-5bafe2c9fb81e1e6167410ad61366a6a941a48b6.tar.gz |
Minor reformatting.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@946 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index d79345dbe..fe46bec97 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -369,8 +369,8 @@ nullBlock = anyChar >> return Null -- | Fail if reader is in strict markdown syntax mode. failIfStrict :: GenParser Char ParserState () failIfStrict = do - state <- getState - if stateStrict state then fail "strict mode" else return () + state <- getState + if stateStrict state then fail "strict mode" else return () -- | Parses backslash, then applies character parser. escaped :: GenParser Char st Char -- ^ Parser for character to escape |