diff options
author | John MacFarlane <jgm@berkeley.edu> | 2014-05-03 15:15:04 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2014-05-03 17:37:54 -0700 |
commit | 743dac493fab08abdec59feb7bd57030a3ba5c90 (patch) | |
tree | 7a073508d05708050151a133deeda63c8831d2d1 /src/Text/Pandoc/Parsing.hs | |
parent | 4c4382420356928d73026395d4ab2f0f9957df08 (diff) |
LaTeX reader: Better error messages with include files.
Closes #1274.
Rewrote handleIncludes.
We now report the actual source file and position where the error
occurs, even if it is included. We do this by inserting special
commands, `\PandocStartInclude` and `\PandocEndInclude`, that encode
this information in the preprocessing phase.
Also generalized the types of a couple functions from
`Text.Pandoc.Parsing`.
Diffstat (limited to 'src/Text/Pandoc/Parsing.hs')
-rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index a9009eaa2..4d0a677da 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -504,7 +504,7 @@ withHorizDisplacement parser = do -- | Applies a parser and returns the raw string that was parsed, -- along with the value produced by the parser. -withRaw :: Parser [Char] st a -> Parser [Char] st (a, [Char]) +withRaw :: Monad m => ParsecT [Char] st m a -> ParsecT [Char] st m (a, [Char]) withRaw parser = do pos1 <- getPosition inp <- getInput |