diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2016-01-14 17:48:42 -0500 |
|---|---|---|
| committer | Richard Eisenberg <eir@cis.upenn.edu> | 2016-01-15 15:43:45 -0500 |
| commit | 3c6635ef4561ab53e51d7187c966b628a972b261 (patch) | |
| tree | c3c39d7f5a54c187a965918126590584ab31d3b9 /utils | |
| parent | 80b4c71c5fc8ae005f6fb73d900b225366c4d3cc (diff) | |
| download | haskell-3c6635ef4561ab53e51d7187c966b628a972b261.tar.gz | |
Fix #11405.
This adds a new variant of AbsBinds that is used solely for bindings
with a type signature. This allows for a simpler desugaring that
does not produce the bogus output that tripped up Core Lint in
ticket #11405. Should make other desugarings simpler, too.
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/ghctags/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/utils/ghctags/Main.hs b/utils/ghctags/Main.hs index 551c68b838..1969216956 100644 --- a/utils/ghctags/Main.hs +++ b/utils/ghctags/Main.hs @@ -279,7 +279,8 @@ boundThings modname lbinding = FunBind { fun_id = id } -> [thing id] PatBind { pat_lhs = lhs } -> patThings lhs [] VarBind { var_id = id } -> [FoundThing modname (getOccString id) (startOfLocated lbinding)] - AbsBinds { } -> [] -- nothing interesting in a type abstraction + AbsBinds { } -> [] -- nothing interesting in a type abstraction + AbsBindsSig { } -> [] PatSynBind PSB{ psb_id = id } -> [thing id] where thing = foundOfLName modname patThings lpat tl = |