Commit 220a27c1 authored by Ian Lynagh's avatar Ian Lynagh

Fix column numbers used when highlighting :list output

parent 8bc3f028
......@@ -2164,9 +2164,9 @@ listAround span do_highlight = do
where
file = GHC.srcSpanFile span
line1 = GHC.srcSpanStartLine span
col1 = GHC.srcSpanStartCol span
col1 = GHC.srcSpanStartCol span - 1
line2 = GHC.srcSpanEndLine span
col2 = GHC.srcSpanEndCol span
col2 = GHC.srcSpanEndCol span - 1
pad_before | line1 == 1 = 0
| otherwise = 1
......
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