From: Thomas Schilling <nominolo@googlemail.com>
Date: Mon, 10 Nov 2008 15:36:21 +0000 (+0000)
Subject: Fix line numbers in TAGS files.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=1e0a63eef6aa9bbd942e3084fbed3398443b02b0;hp=3659ebdaca5124c4efb9dd9e8894054d34187deb

Fix line numbers in TAGS files.
---

diff --git a/utils/ghctags/GhcTags.hs b/utils/ghctags/GhcTags.hs
index ef0e55e..e74b2d1 100644
--- a/utils/ghctags/GhcTags.hs
+++ b/utils/ghctags/GhcTags.hs
@@ -331,7 +331,7 @@ getfoundthings (FileData _filename things _src_lines) = things
 
 dumpthing :: Bool -> FoundThing -> String
 dumpthing showmod (FoundThing modname name loc) =
-	fullname ++ "\t" ++ filename ++ "\t" ++ (show $ line + 1)
+	fullname ++ "\t" ++ filename ++ "\t" ++ (show line)
     where line = srcLocLine loc
           filename = unpackFS $ srcLocFile loc
           fullname = if showmod then moduleNameString modname ++ "." ++ name