remove extraneous "+1"; column numbers start at zero

2aeabd26 · Simon Marlow · 384dc99e · 2aeabd26
Commit 2aeabd26 authored Apr 17, 2007 by Simon Marlow
--- a/compiler/deSugar/Coverage.lhs
+++ b/compiler/deSugar/Coverage.lhs
@@ -553,7 +553,7 @@ mkHpcPos pos
   start = srcSpanStart pos
   end   = srcSpanEnd pos
   hpcPos = toHpcPos ( srcLocLine start
-		     , srcLocCol start + 1
+		     , srcLocCol start
 		     , srcLocLine end
 		     , srcLocCol end
 		     )