diff options
Diffstat (limited to 'utils/ghctags/Main.hs')
| -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 |