projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7a499a5
)
Hugs only: unbreak typeRepKey
author
Ross Paterson
<ross@soi.city.ac.uk>
Fri, 29 Sep 2006 10:27:43 +0000
(10:27 +0000)
committer
Ross Paterson
<ross@soi.city.ac.uk>
Fri, 29 Sep 2006 10:27:43 +0000
(10:27 +0000)
Data/Typeable.hs
patch
|
blob
|
history
diff --git
a/Data/Typeable.hs
b/Data/Typeable.hs
index
26623d7
..
d187296
100644
(file)
--- a/
Data/Typeable.hs
+++ b/
Data/Typeable.hs
@@
-164,6
+164,7
@@
data TyCon = TyCon !Key String
instance Eq TyCon where
(TyCon t1 _) == (TyCon t2 _) = t1 == t2
+#endif
-- | Returns a unique integer associated with a 'TypeRep'. This can
-- be used for making a mapping ('Data.IntMap.IntMap') with TypeReps
@@
-177,7
+178,6
@@
instance Eq TyCon where
--
typeRepKey :: TypeRep -> IO Int
typeRepKey (TypeRep (Key i) _ _) = return i
-#endif
--
-- let fTy = mkTyCon "Foo" in show (mkTyConApp (mkTyCon ",,")