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

---
 ghc/compiler/typecheck/TcMatches.lhs |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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