diff options
| -rw-r--r-- | src/Text/Pandoc/Error.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs index 81eb41f85..9dee8356b 100644 --- a/src/Text/Pandoc/Error.hs +++ b/src/Text/Pandoc/Error.hs @@ -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 |