From d7ce19a02315e6dd7ab1fa8f8f241ba9d198f51e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 09:22:00 +0000
Subject: [PATCH] [project @ 1997-06-05 09:22:00 by sof] Do not use loop
 breaker modules with 2.0x

---
 ghc/compiler/types/TyCon.lhs |    8 ++++++++
 1 file changed, 8 insertions(+)

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) )
-- 
1.7.10.4