From 48a210e49396b4998174350191759879b442ad75 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Fri, 26 Nov 2004 15:03:22 +0000
Subject: [PATCH] [project @ 2004-11-26 15:03:22 by ross] fix tycon name
 strings

---
 Data/Typeable.hs |    2 +-
 Data/Version.hs  |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Data/Typeable.hs b/Data/Typeable.hs
index 69ed9a0..8bd01f7 100644
--- 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
--- 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 []
-- 
1.7.10.4