diff options
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghctags/Main.hs | 4 | ||||
| m--------- | utils/haddock | 0 |
2 files changed, 3 insertions, 1 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 059692622e..5e96f35e74 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -284,7 +284,9 @@ 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 PSB{ psb_id = id } -> [thing id] + PatSynBind _ PSB{ psb_id = id } -> [thing id] + PatSynBind _ (XPatSynBind _) -> [] + XHsBindsLR _ -> [] where thing = foundOfLName modname patThings lpat tl = let loc = startOfLocated lpat diff --git a/utils/haddock b/utils/haddock -Subproject c84939c8428a9e9ae0753e75ca6b48fcbbc1ecd +Subproject a8ca2ae8737d29145fe57a7709e59be8cb7a00d |