[project @ 2004-11-26 15:03:22 by ross]

fix tycon name strings

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 69ed9a0..8bd01f7 100644 (file)
--- a/Data/Typeable.hs
+++ b/Data/Typeable.hs
@@ -487,7 +487,7 @@ instance Typeable6 (,,,,,) where
   typeOf6 tu = mkTyConApp tup6Tc []
 
 tup7Tc :: TyCon
-tup7Tc = mkTyCon ",,,,,"
+tup7Tc = mkTyCon ",,,,,,"
 
 instance Typeable7 (,,,,,,) where
   typeOf7 tu = mkTyConApp tup7Tc []

diff --git a/Data/Version.hs b/Data/Version.hs
index 8ffe754..9208746 100644 (file)
--- a/Data/Version.hs
+++ b/Data/Version.hs
@@ -104,7 +104,7 @@ data Version =
 
 #if __GLASGOW_HASKELL__ < 602
 versionTc :: TyCon
-versionTc = mkTyCon "()"
+versionTc = mkTyCon "Version"
 
 instance Typeable Version where
   typeOf _ = mkAppTy versionTc []