From de554bbf68e121f36de62d7feb4f88cbfba5ef07 Mon Sep 17 00:00:00 2001 From: simonpj Date: Wed, 10 Feb 2010 10:59:45 +0000 Subject: Track changes in HsTyVarBndr --- src/Haddock/Backends/Hoogle.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Backends/Hoogle.hs') 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 -- cgit v1.2.3