From 01bb2208d997bd68f7f8229d7464b253bc8519c7 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 21:01:32 +0000
Subject: [PATCH] [project @ 1997-06-05 21:01:10 by sof] import updates
---
ghc/compiler/deSugar/MatchCon.lhs | 4 ++++
ghc/compiler/deSugar/MatchLit.lhs | 5 +++++
2 files changed, 9 insertions(+)
diff --git a/ghc/compiler/deSugar/MatchCon.lhs b/ghc/compiler/deSugar/MatchCon.lhs
index 7abf1850c169..d572e60f3278 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 cac28beffcc1..4a429fe51c12 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 )
--
GitLab