[project @ 2000-03-27 13:24:12 by simonpj]

[ghc-hetmet.git] / ghc / compiler / deSugar / DsExpr.lhs

diff --git a/ghc/compiler/deSugar/DsExpr.lhs b/ghc/compiler/deSugar/DsExpr.lhs
index a4c50c0..5e78e8e 100644 (file)
--- a/ghc/compiler/deSugar/DsExpr.lhs
+++ b/ghc/compiler/deSugar/DsExpr.lhs
@@ -20,6 +20,7 @@ import TcHsSyn                ( TypecheckedHsExpr, TypecheckedHsBinds,
 
                        )
 import CoreSyn
+import CoreUtils       ( exprType, mkIfThenElse, bindNonRec )
 
 import DsMonad
 import DsBinds         ( dsMonoBinds, AutoScc(..) )
@@ -29,7 +30,6 @@ import DsListComp     ( dsListComp )
 import DsUtils         ( mkErrorAppDs, mkDsLets, mkConsExpr, mkNilExpr )
 import Match           ( matchWrapper, matchSimply )
 
-import CoreUtils       ( exprType )
 import CostCentre      ( mkUserCC )
 import FieldLabel      ( FieldLabel )
 import Id              ( Id, idType, recordSelectorFieldLabel )