From: ralf <unknown>
Date: Wed, 25 Feb 2004 20:10:18 +0000 (+0000)
Subject: [project @ 2004-02-25 20:10:18 by ralf]
X-Git-Tag: nhc98-1-18-release~365
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3683967ba8a4d13226eefed9f137e3b1b413f1bd;p=ghc-base.git

[project @ 2004-02-25 20:10:18 by ralf]
Thanks to Sven Panne.
The module should be back to Haskell 98
or at least should not break hugs anymore.
---

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index b0b6929..d58e1fa 100644
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -480,12 +480,12 @@ appKeys k ks = foldl appKey k ks
 
 
 -- | Variant for unary type constructors
-class Typeable (t ()) => Typeable1 t where
+class Typeable1 t where
   typeOf1 :: t a -> TyCon
 
 
 -- | Variant for binary type constructors
-class Typeable (t () ()) => Typeable2 t where
+class Typeable2 t where
   typeOf2 :: t a b -> TyCon