[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 (file)
--- 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 )