Commit cdf13898 authored by Simon Marlow's avatar Simon Marlow

fix off-by-one-column in showRichTokenStream (#7351)

parent 9008ae05
......@@ -1260,7 +1260,7 @@ showRichTokenStream ts = go startLoc ts ""
. (str ++)
. go tokEnd ts
| otherwise -> ((replicate (tokLine - locLine) '\n') ++)
. ((replicate tokCol ' ') ++)
. ((replicate (tokCol - 1) ' ') ++)
. (str ++)
. go tokEnd ts
where (locLine, locCol) = (srcLocLine loc, srcLocCol loc)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment