diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-25 08:30:11 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-05-25 08:30:11 +0100 |
| commit | 4fbd2b4b0088d373f0d026dc1cd7117269c7a9db (patch) | |
| tree | cda83859f02c1934b1d90c8e76c3b7b21f1ece20 /src/Haddock/Backends/Hoogle.hs | |
| parent | fef07ac22cc89888e78233807e55c7dbf6f405f5 (diff) | |
Follow changes in LHsTyVarBndrs
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index d176c9f7..78e81d11 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -141,7 +141,7 @@ ppClass x = out x{tcdSigs=[]} : addContext _ = error "expected TypeSig" f (HsForAllTy a b con d) = HsForAllTy a b (reL (context : unLoc con)) d - f t = HsForAllTy Implicit (mkHsQTvs []) (reL [context]) (reL t) + f t = HsForAllTy Implicit emptyHsQTvs (reL [context]) (reL t) context = nlHsTyConApp (unL $ tcdLName x) (map (reL . HsTyVar . hsTyVarName . unL) (hsQTvBndrs (tcdTyVars x))) |