aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-07-25 11:27:25 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-07-25 11:27:25 -0700
commit8b380a464e7cd27f992e26d861d5e451e90e9600 (patch)
tree1273d29a034a4a87b60550bffb09a12dcee8af0d /src
parentdfa19061abc24a3e95b9b37e4f9484d902110899 (diff)
downloadpandoc-8b380a464e7cd27f992e26d861d5e451e90e9600.tar.gz
Text.Pandoc.Parsing: Added getOption.
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Parsing.hs10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
index 3ed2644ba..878194db7 100644
--- a/src/Text/Pandoc/Parsing.hs
+++ b/src/Text/Pandoc/Parsing.hs
@@ -61,6 +61,7 @@ module Text.Pandoc.Parsing ( (>>~),
readWith,
testStringWith,
ParserState (..),
+ getOption,
defaultParserState,
HeaderType (..),
ParserContext (..),
@@ -390,9 +391,7 @@ nullBlock = anyChar >> return Null
-- | Fail if reader is in strict markdown syntax mode.
failIfStrict :: Parsec [a] ParserState ()
-failIfStrict = do
- state <- getState
- if readerStrict (stateOptions state) then fail "strict mode" else return ()
+failIfStrict = getOption readerStrict >>= guard . not
-- | Fail unless we're in literate haskell mode.
failUnlessLHS :: Parsec [tok] ParserState ()
@@ -750,6 +749,9 @@ defaultParserState =
stateMacros = [],
stateRstDefaultRole = "title-reference"}
+getOption :: (ReaderOptions -> a) -> Parser [t] ParserState a
+getOption f = (f . stateOptions) `fmap` getState
+
data HeaderType
= SingleHeader Char -- ^ Single line of characters underneath
| DoubleHeader Char -- ^ Lines of characters above and below
@@ -795,7 +797,7 @@ lookupKeySrc table key = case M.lookup key table of
-- | Fail unless we're in "smart typography" mode.
failUnlessSmart :: Parsec [tok] ParserState ()
-failUnlessSmart = getState >>= guard . readerSmart . stateOptions
+failUnlessSmart = getOption readerSmart >>= guard
smartPunctuation :: Parsec [Char] ParserState Inline
-> Parsec [Char] ParserState Inline