From c244ae2a89f4ce85800e6eaa587a35b9c48ef4a9 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 2 Apr 2004 16:51:45 +0000
Subject: [PATCH] [project @ 2004-04-02 16:51:45 by simonpj] Wibble to last
 commit

---
 ghc/compiler/deSugar/DsMeta.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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"
-- 
1.7.10.4