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

[project @ 2004-04-02 16:54:02 by simonpj]
Another stage-2 wibble to last commit
---

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