lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-08-25 17:56:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Text.Pandoc.Error: fix line calculations in reporting parsec errors.

Browse Source 
Also remove a spurious initial newline in the error report.
This commit is contained in:
John MacFarlane
2021-06-28 13:28:49 -07:00
parent 4262898fe9
commit f045e59248
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Error.hs
+3 -3
View File
@@ -97,13 +97,13 @@ renderError e =
[] -> ""
((pos,txt):_) ->
let ls = T.lines txt <> [""]
ln = errLine - sourceLine pos
in if length ls > ln - 1
ln = (errLine - sourceLine pos) + 1
in if length ls > ln && ln >= 1
then T.concat ["\n", ls !! (ln - 1)
,"\n", T.replicate (errColumn - 1) " "
,"^"]
else ""
in "\nError at " <> tshow err' <> errorInFile
in "Error at " <> tshow err' <> errorInFile
PandocMakePDFError s -> s
PandocOptionError s -> s
PandocSyntaxMapError s -> s