[project @ 1996-03-19 08:58:34 by partain]

[ghc-hetmet.git] / ghc / compiler / types / TyLoop.lhs

diff --git a/ghc/compiler/types/TyLoop.lhs b/ghc/compiler/types/TyLoop.lhs
new file mode 100644 (file)
index 0000000..e7ba125
--- /dev/null
+++ b/ghc/compiler/types/TyLoop.lhs
@@ -0,0 +1,23 @@
+
+\begin{code}
+module AllTypes(
+       TyCon, Arity(..),
+       Class, ClassOp,
+       GenTyVar, GenType, Type,
+       Id,
+
+       -- Functions which are, alas, necessary to break loops
+       mkTupleCon,     -- Used in TyCon
+
+
+       Kind,           -- Not necessary to break loops, but useful
+       GenUsage        -- to get when importing AllTypes
+) where
+
+import TyCon   ( TyCon, Arity(..) )
+import Type    ( GenTyVar, TyVar(..), GenType, Type(..) )
+import Class   ( Class,ClassOp )
+import Id      ( Id, mkTupleCon )
+import Kind    ( Kind )
+import Usage   ( GenUsage, Usage(..) )
+\end{code}