From 76fcd85d57595f9d864dea60f4d738ff59959326 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 2 Apr 2004 16:54:02 +0000
Subject: [PATCH] [project @ 2004-04-02 16:54:02 by simonpj] Another stage-2
 wibble to last commit

---
 ghc/compiler/hsSyn/Convert.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/hsSyn/Convert.lhs b/ghc/compiler/hsSyn/Convert.lhs
index c2d35d5..03abd3c 100644
--- a/ghc/compiler/hsSyn/Convert.lhs
+++ b/ghc/compiler/hsSyn/Convert.lhs
@@ -62,7 +62,7 @@ mk_con con = L loc0 $ case con of
         = (noLoc (vName i), noLoc $ BangType HsNoBang (cvtType ty))
 
 mk_derivs [] = Nothing
-mk_derivs cs = Just (noLoc [noLoc $ HsClassP (tconName c) [] | c <- cs])
+mk_derivs cs = Just [noLoc $ HsPredTy $ noLoc $ HsClassP (tconName c) [] | c <- cs]
 
 cvt_ltop  :: TH.Dec -> Either (LHsDecl RdrName) Message
 cvt_ltop d = case cvt_top d of
-- 
1.7.10.4