projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5a230f0
)
Include record fields in tags.
author
Thomas Schilling
<nominolo@googlemail.com>
Tue, 28 Oct 2008 18:05:38 +0000
(18:05 +0000)
committer
Thomas Schilling
<nominolo@googlemail.com>
Tue, 28 Oct 2008 18:05:38 +0000
(18:05 +0000)
utils/ghctags/GhcTags.hs
patch
|
blob
|
history
diff --git
a/utils/ghctags/GhcTags.hs
b/utils/ghctags/GhcTags.hs
index
5237bbc
..
ef0e55e
100644
(file)
--- a/
utils/ghctags/GhcTags.hs
+++ b/
utils/ghctags/GhcTags.hs
@@
-251,17
+251,12
@@
boundValues :: ModuleName -> HsGroup Name -> [FoundThing]
boundValues mod group =
let vals = case hs_valds group of
ValBindsOut nest _sigs ->
boundValues mod group =
let vals = case hs_valds group of
ValBindsOut nest _sigs ->
- [ x | (_rec, binds) <- nest, bind <- bagToList binds,
- x <- boundThings mod bind ]
+ [ x | (_rec, binds) <- nest
+ , bind <- bagToList binds
+ , x <- boundThings mod bind ]
_other -> error "boundValues"
_other -> error "boundValues"
- tys = concat $ map tyBound (hs_tyclds group)
- where tyBound ltcd = case unLoc ltcd of
- ForeignType { tcdLName = n } -> [found n]
- TyData { tcdLName = tycon, tcdCons = cons } ->
- dataNames tycon cons
- TySynonym { tcdLName = n } -> [found n]
- ClassDecl { tcdLName = n } -> [found n]
- _ -> error "boundValues: tys"
+ tys = [ n | ns <- map (tyClDeclNames . unLoc) (hs_tyclds group)
+ , n <- map found ns ]
fors = concat $ map forBound (hs_fords group)
where forBound lford = case unLoc lford of
ForeignImport n _ _ -> [found n]
fors = concat $ map forBound (hs_fords group)
where forBound lford = case unLoc lford of
ForeignImport n _ _ -> [found n]