X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FdeSugar%2FDsMeta.hs;h=229bb54becd0d0e5bcdf10841b659887ebdc505d;hb=40888e1d6141c919254f93545ae0d795e20ae4bf;hp=bba9d9a07da50814d78f5958d520faaa0f5b9a9c;hpb=f216dd0134b3c581dde683f16a75885457e4c60b;p=ghc-hetmet.git

diff --git a/ghc/compiler/deSugar/DsMeta.hs b/ghc/compiler/deSugar/DsMeta.hs
index bba9d9a..229bb54 100644
--- a/ghc/compiler/deSugar/DsMeta.hs
+++ b/ghc/compiler/deSugar/DsMeta.hs
@@ -288,7 +288,7 @@ repBangTy (L _ (BangType str ty)) = do
 -- 			Deriving clause
 -------------------------------------------------------
 
-repDerivs :: Maybe (LHsContext Name) -> DsM (Core [TH.Name])
+repDerivs :: Maybe [LHsType Name] -> DsM (Core [TH.Name])
 repDerivs Nothing = coreList nameTyConName []
 repDerivs (Just (L _ ctxt))
   = do { strs <- mapM rep_deriv ctxt ; 
@@ -296,8 +296,8 @@ repDerivs (Just (L _ ctxt))
   where
     rep_deriv :: LHsPred Name -> DsM (Core TH.Name)
 	-- Deriving clauses must have the simple H98 form
-    rep_deriv (L _ (HsClassP cls [])) = lookupOcc cls
-    rep_deriv other		      = panic "rep_deriv"
+    rep_deriv (L _ (HsPredTy (L _ (HsClassP cls [])))) = lookupOcc cls
+    rep_deriv other		  		       = panic "rep_deriv"
 
 
 -------------------------------------------------------