[project @ 2004-11-26 15:03:22 by ross]
authorross <unknown>
Fri, 26 Nov 2004 15:03:22 +0000 (15:03 +0000)
committerross <unknown>
Fri, 26 Nov 2004 15:03:22 +0000 (15:03 +0000)
fix tycon name strings

libraries/base/Data/Typeable.hs
libraries/base/Data/Version.hs

index 69ed9a0..8bd01f7 100644 (file)
@@ -487,7 +487,7 @@ instance Typeable6 (,,,,,) where
   typeOf6 tu = mkTyConApp tup6Tc []
 
 tup7Tc :: TyCon
-tup7Tc = mkTyCon ",,,,,"
+tup7Tc = mkTyCon ",,,,,,"
 
 instance Typeable7 (,,,,,,) where
   typeOf7 tu = mkTyConApp tup7Tc []
index 8ffe754..9208746 100644 (file)
@@ -104,7 +104,7 @@ data Version =
 
 #if __GLASGOW_HASKELL__ < 602
 versionTc :: TyCon
-versionTc = mkTyCon "()"
+versionTc = mkTyCon "Version"
 
 instance Typeable Version where
   typeOf _ = mkAppTy versionTc []