From 2aeabd26781ca6398a795a07929aaad648fdf943 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 17 Apr 2007 14:35:12 +0000 Subject: [PATCH] remove extraneous "+1"; column numbers start at zero --- compiler/deSugar/Coverage.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/deSugar/Coverage.lhs b/compiler/deSugar/Coverage.lhs index 8624780..ce975fe 100644 --- 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 ) -- 1.7.10.4