diff options
author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-07-29 11:27:26 +0200 |
---|---|---|
committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-07-29 15:44:31 +0200 |
commit | 893a261c8c15783c8f86c74f4e8c57df9c44a155 (patch) | |
tree | cca55e276728eeec41d07427811af62183268e04 /utils/ghctags | |
parent | f3262fe82ce7d810809beecabd4257522db4cc55 (diff) | |
download | haskell-893a261c8c15783c8f86c74f4e8c57df9c44a155.tar.gz |
Refactor PatSynBind so that we can pass around PSBs instead of several arguments
Diffstat (limited to 'utils/ghctags')
-rw-r--r-- | utils/ghctags/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 815cc7ca18..4a094f50a1 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -282,7 +282,7 @@ boundThings modname lbinding = PatBind { pat_lhs = lhs } -> patThings lhs [] VarBind { var_id = id } -> [FoundThing modname (getOccString id) (startOfLocated lbinding)] AbsBinds { } -> [] -- nothing interesting in a type abstraction - PatSynBind { patsyn_id = id } -> [thing id] + PatSynBind PSB{ psb_id = id } -> [thing id] where thing = foundOfLName modname patThings lpat tl = let loc = startOfLocated lpat |