diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-30 13:03:51 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2015-10-30 13:03:51 +0000 |
| commit | 8358cd222cc5a2d9f971691fe62e7e2c352d7c9b (patch) | |
| tree | 05c7888c907ce9438c880c80aea659e213da9af9 /haddock-api/src/Haddock/Utils.hs | |
| parent | ec20bd15e724d580a01d9fad98791bb53db5e57c (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 |