projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
3659ebd
)
Fix line numbers in TAGS files.
author
Thomas Schilling
<nominolo@googlemail.com>
Mon, 10 Nov 2008 15:36:21 +0000
(15:36 +0000)
committer
Thomas Schilling
<nominolo@googlemail.com>
Mon, 10 Nov 2008 15:36:21 +0000
(15:36 +0000)
utils/ghctags/GhcTags.hs
patch
|
blob
|
history
diff --git
a/utils/ghctags/GhcTags.hs
b/utils/ghctags/GhcTags.hs
index
ef0e55e
..
e74b2d1
100644
(file)
--- 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