From: sof <unknown>
Date: Thu, 5 Jun 1997 09:22:00 +0000 (+0000)
Subject: [project @ 1997-06-05 09:22:00 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~427
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d7ce19a02315e6dd7ab1fa8f8f241ba9d198f51e;p=ghc-hetmet.git

[project @ 1997-06-05 09:22:00 by sof]
Do not use loop breaker modules with 2.0x
---

diff --git a/ghc/compiler/types/TyCon.lhs b/ghc/compiler/types/TyCon.lhs
index 0dea89f..0608ba5 100644
--- a/ghc/compiler/types/TyCon.lhs
+++ b/ghc/compiler/types/TyCon.lhs
@@ -40,6 +40,7 @@ module TyCon(
 
 CHK_Ubiq()	-- debugging consistency check
 
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(TyLoop) ( SYN_IE(Type), GenType,
 			  SYN_IE(Class), GenClass,
 			  SYN_IE(Id), GenId,
@@ -47,6 +48,13 @@ IMPORT_DELOOPER(TyLoop) ( SYN_IE(Type), GenType,
 			  tupleCon, isNullaryDataCon, idType
 			  --LATER: specMaybeTysSuffix
 			)
+#else
+import {-# SOURCE #-} Type  ( Type  )
+import {-# SOURCE #-} Class ( Class )
+import {-# SOURCE #-} Id    ( Id, isNullaryDataCon, idType )
+import {-# SOURCE #-} Type  ( splitSigmaTy, splitFunTy  )
+import {-# SOURCE #-} TysWiredIn ( tupleCon )
+#endif
 
 import BasicTypes	( SYN_IE(Arity), NewOrData(..) )
 import TyVar		( GenTyVar, alphaTyVars, alphaTyVar, betaTyVar, SYN_IE(TyVar) )