From a2127bdc86e325979e1ec55b25c9957ed2e15e8a Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 04:49:43 +0000
Subject: [PATCH] [project @ 1997-05-26 04:49:07 by sof] Updated imports

---
 ghc/compiler/deSugar/DsExpr.lhs  |    7 +------
 ghc/compiler/deSugar/DsGRHSs.lhs |    2 +-
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index 1c25806..32a0471 100644
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -42,11 +42,10 @@ import Id		( idType, nullIdEnv, addOneToIdEnv,
 			)
 import Literal		( mkMachInt, Literal(..) )
 import Name		( Name{--O only-} )
-import PprStyle		( PprStyle(..) )
+import Outputable	( PprStyle(..), Outputable(..) )
 import PprType		( GenType )
 import PrelVals		( rEC_CON_ERROR_ID, rEC_UPD_ERROR_ID, voidId )
 import Pretty		( Doc, hcat, ptext, text )
-import TyCon		( isDataTyCon, isNewTyCon )
 import Type		( splitSigmaTy, splitFunTy, typePrimRep, 
 			  getAppDataTyConExpandingDicts, maybeAppTyCon, getAppTyCon, applyTy,
 			  maybeBoxedPrimType, splitAppTy, SYN_IE(Type)
@@ -60,10 +59,6 @@ import Usage		( SYN_IE(UVar) )
 import Maybes		( maybeToBool )
 import Util		( zipEqual, pprError, panic, assertPanic )
 
-#if __GLASGOW_HASKELL__ >= 202
-import Outputable
-#endif
-
 mk_nil_con ty = mkCon nilDataCon [] [ty] []  -- micro utility...
 \end{code}
 
diff --git a/ghc/compiler/deSugar/DsGRHSs.lhs b/ghc/compiler/deSugar/DsGRHSs.lhs
index b6a1c90..8dcf96d 100644
--- a/ghc/compiler/deSugar/DsGRHSs.lhs
+++ b/ghc/compiler/deSugar/DsGRHSs.lhs
@@ -29,7 +29,7 @@ import Id		( GenId )
 #endif
 import CoreUtils	( coreExprType, mkCoreIfThenElse )
 import PrelVals		( nON_EXHAUSTIVE_GUARDS_ERROR_ID )
-import PprStyle		( PprStyle(..) )
+import Outputable	( PprStyle(..) )
 import SrcLoc		( SrcLoc{-instance-} )
 import Type             ( SYN_IE(Type) )
 import Unique		( Unique, otherwiseIdKey )
-- 
1.7.10.4