From: simonpj <unknown>
Date: Fri, 2 Apr 2004 16:51:45 +0000 (+0000)
Subject: [project @ 2004-04-02 16:51:45 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~1918
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c244ae2a89f4ce85800e6eaa587a35b9c48ef4a9;p=ghc-hetmet.git

[project @ 2004-04-02 16:51:45 by simonpj]
Wibble to last commit
---

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