diff options
| author | simonpj <simonpj@microsoft.com> | 2010-02-10 10:59:45 +0000 |
|---|---|---|
| committer | simonpj <simonpj@microsoft.com> | 2010-02-10 10:59:45 +0000 |
| commit | de554bbf68e121f36de62d7feb4f88cbfba5ef07 (patch) | |
| tree | 33acd8fd2643203dd5b7c5940020a343c8843fe6 /src/Haddock/Backends/Hoogle.hs | |
| parent | e57267b0798f04f3b1b882128886242281e62427 (diff) | |
Track changes in HsTyVarBndr
Diffstat (limited to 'src/Haddock/Backends/Hoogle.hs')
| -rw-r--r-- | src/Haddock/Backends/Hoogle.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Hoogle.hs b/src/Haddock/Backends/Hoogle.hs index 9958faeb..b1b08b95 100644 --- a/src/Haddock/Backends/Hoogle.hs +++ b/src/Haddock/Backends/Hoogle.hs @@ -147,7 +147,7 @@ ppClass x = out x{tcdSigs=[]} : context = reL $ HsClassP (unL $ tcdLName x) (map (reL . HsTyVar . tyVar . unL) (tcdTyVars x)) - tyVar (UserTyVar v) = v + tyVar (UserTyVar v _) = v tyVar (KindedTyVar v _) = v @@ -191,7 +191,7 @@ ppCtor dat subdocs con = doc (lookupCon subdocs (con_name con)) name = out $ unL $ con_name con resType = case con_res con of - ResTyH98 -> apps $ map (reL . HsTyVar) $ unL (tcdLName dat) : [x | UserTyVar x <- map unL $ tcdTyVars dat] + ResTyH98 -> apps $ map (reL . HsTyVar) $ unL (tcdLName dat) : [x | UserTyVar x _ <- map unL $ tcdTyVars dat] ResTyGADT x -> x |