X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fghctags%2FGhcTags.hs;h=e74b2d18013fd8f96052b4c24a01dd04edabe522;hb=6f8ff0bbad3b9fa389c960ad1b5a267a1ae502f1;hp=ef0e55e85a336278550ace89ad12f2e57ff8dcbb;hpb=9761825a6ee1c7c0b7115b9b7f58bd3b3e8cb5fe;p=ghc-hetmet.git

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