From 1e0a63eef6aa9bbd942e3084fbed3398443b02b0 Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Mon, 10 Nov 2008 15:36:21 +0000 Subject: [PATCH] Fix line numbers in TAGS files. --- utils/ghctags/GhcTags.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4