projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-07-19 16:44:50 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
types
/
TyCon.lhs
diff --git
a/ghc/compiler/types/TyCon.lhs
b/ghc/compiler/types/TyCon.lhs
index
ffad3ce
..
7d42e1a
100644
(file)
--- a/
ghc/compiler/types/TyCon.lhs
+++ b/
ghc/compiler/types/TyCon.lhs
@@
-437,6
+437,11
@@
isTupleTyCon :: TyCon -> Bool
-- The unit tycon didn't used to be classed as a tuple tycon
-- but I thought that was silly so I've undone it
-- If it can't be for some reason, it should be a AlgTyCon
-- The unit tycon didn't used to be classed as a tuple tycon
-- but I thought that was silly so I've undone it
-- If it can't be for some reason, it should be a AlgTyCon
+--
+-- NB: when compiling Data.Tuple, the tycons won't reply True to
+-- isTupleTyCon, becuase they are built as AlgTyCons. However they
+-- get spat into the interface file as tuple tycons, so I don't think
+-- it matters.
isTupleTyCon (TupleTyCon {}) = True
isTupleTyCon other = False
isTupleTyCon (TupleTyCon {}) = True
isTupleTyCon other = False