[project @ 2004-04-02 16:54:02 by simonpj]

Another stage-2 wibble to last commit

[project @ 2004-04-02 16:54:02 by simonpj]
Another stage-2 wibble to last commit
76fcd85d · simonpj · c244ae2a · 76fcd85d
Commit 76fcd85d authored Apr 02, 2004 by simonpj
--- 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