diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-20 20:28:50 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-06-24 20:27:36 -0700 |
| commit | a578a490ee0c73360ea2b98b4d4cc39410a571e0 (patch) | |
| tree | f5db4a5bcc91e64dff0ddad90bb3559884846a5d /src/Text/Pandoc/Parsing.hs | |
| parent | a2b98ba2185249037405ff29fbdb19725cb87b3a (diff) | |
| download | pandoc-a578a490ee0c73360ea2b98b4d4cc39410a571e0.tar.gz | |
Parsing: Generalized state type on readWith.
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index 72ae828f0..71b16b7ca 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -764,9 +764,9 @@ gridTableFooter = blanklines --- -- | Parse a string with a given parser and state. -readWith :: Parser [Char] ParserState a -- ^ parser - -> ParserState -- ^ initial state - -> [Char] -- ^ input +readWith :: Parser [Char] st a -- ^ parser + -> st -- ^ initial state + -> [Char] -- ^ input -> a readWith parser state input = case runParser parser state "source" input of |