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

[project @ 1997-06-05 21:01:10 by sof]
import updates
---

diff --git a/ghc/compiler/deSugar/MatchCon.lhs b/ghc/compiler/deSugar/MatchCon.lhs
index 7abf185..d572e60 100644
--- a/ghc/compiler/deSugar/MatchCon.lhs
+++ b/ghc/compiler/deSugar/MatchCon.lhs
@@ -9,7 +9,11 @@
 module MatchCon ( matchConFamily ) where
 
 IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(DsLoop)		( match )	-- break match-ish loop
+#else
+import {-# SOURCE #-} Match
+#endif
 
 import HsSyn		( OutPat(..), HsLit, HsExpr )
 import DsHsSyn		( outPatType )
diff --git a/ghc/compiler/deSugar/MatchLit.lhs b/ghc/compiler/deSugar/MatchLit.lhs
index cac28be..4a429fe 100644
--- a/ghc/compiler/deSugar/MatchLit.lhs
+++ b/ghc/compiler/deSugar/MatchLit.lhs
@@ -9,7 +9,12 @@
 module MatchLit ( matchLiterals ) where
 
 IMP_Ubiq()
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
 IMPORT_DELOOPER(DsLoop)		-- break match-ish and dsExpr-ish loops
+#else
+import {-# SOURCE #-} Match
+import {-# SOURCE #-} DsExpr ( dsExpr )
+#endif
 
 import HsSyn		( HsLit(..), OutPat(..), HsExpr(..), Fixity,
 			  Match, HsBinds, Stmt(..), DoOrListComp, HsType, ArithSeqInfo )