diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-30 13:03:51 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:37:52 +0000 |
| commit | 0b4e5424d1df869cc6eb4bc439c7988f36eeaab4 (patch) | |
| tree | 301a797c59f7134a87ed654cf5d401a0ff3c33a9 /haddock-api/src/Haddock/Utils.hs | |
| parent | 5628084e7a9d7bf8ec083cd93321eaa6ac686b4a (diff) | |
Work on updating Haddock to wip/spj-wildard-recactor
Still incomplete
Diffstat (limited to 'haddock-api/src/Haddock/Utils.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Utils.hs b/haddock-api/src/Haddock/Utils.hs index 6a499f64..f7a32dd3 100644 --- a/haddock-api/src/Haddock/Utils.hs +++ b/haddock-api/src/Haddock/Utils.hs @@ -132,7 +132,7 @@ mkEmptySigWcType ty = mkEmptyImplicitBndrs (mkEmptyWildCardBndrs ty) addClassContext :: Name -> LHsQTyVars Name -> LSig Name -> LSig Name -- Add the class context to a class-op signature -addClassContxt cls tvs0 (L pos (ClassOpSig _ lname ltype)) +addClassContext cls tvs0 (L pos (ClassOpSig _ lname ltype)) = L pos (TypeSig lname (mkEmptySigWcType (go (hsSigType ltype)))) -- The mkEmptySigWcType is suspicious where |