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

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

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index 38a5d16..a5ca1dd 100644
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -10,6 +10,12 @@ module TcMatches ( tcMatchesFun, tcMatchesCase, tcMatch ) where
 
 IMP_Ubiq()
 
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
+IMPORT_DELOOPER(TcLoop)		( tcGRHSsAndBinds )
+#else
+import {-# SOURCE #-} TcGRHSs ( tcGRHSsAndBinds )
+#endif
+
 import HsSyn		( Match(..), GRHSsAndBinds(..), GRHS(..), InPat,
 			  HsExpr, HsBinds, OutPat, Fake, Stmt,
 			  collectPatBinders, pprMatch )
@@ -19,7 +25,6 @@ import TcHsSyn		( TcIdOcc(..), SYN_IE(TcMatch) )
 import TcMonad
 import Inst		( Inst, SYN_IE(LIE), plusLIE )
 import TcEnv		( newMonoIds )
-IMPORT_DELOOPER(TcLoop)		( tcGRHSsAndBinds )
 import TcPat		( tcPat )
 import TcType		( SYN_IE(TcType), TcMaybe, zonkTcType )
 import Unify		( unifyTauTy, unifyTauTyList )