projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
fix a cut/paste bug in debugging code
[ghc-hetmet.git]
/
utils
/
ghctags
/
Main.hs
diff --git
a/utils/ghctags/Main.hs
b/utils/ghctags/Main.hs
index
b3ed58f
..
c86a92a
100644
(file)
--- a/
utils/ghctags/Main.hs
+++ b/
utils/ghctags/Main.hs
@@
-293,7
+293,6
@@
boundThings modname lbinding =
LitPat _ -> tl
NPat _ _ _ -> tl -- form of literal pattern?
NPlusKPat id _ _ _ -> thing id : tl
- TypePat _ -> tl -- XXX need help here
SigPatIn p _ -> patThings p tl
SigPatOut p _ -> patThings p tl
_ -> error "boundThings"