From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Mon, 18 Sep 2006 21:04:58 +0000 (+0000)
Subject: fix out-of-scope variable
X-Git-Tag: After_FC_branch_merge~111
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=99cf312c0bacfd96f7b2827bd3dc12aaa8fa920f

fix out-of-scope variable
Sun Aug  6 20:09:58 EDT 2006  Manuel M T Chakravarty <chak@cse.unsw.edu.au>
  * fix out-of-scope variable
  Fri Jul 28 13:40:36 EDT 2006  kevind@bu.edu
---

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 196efb6..4b6c4a3 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -5,7 +5,7 @@
 
 \begin{code}
 module SimplUtils (
-	mkLam, mkCase, mkDataConAlt,
+	mkLam, mkCase, 
 
 	-- Inlining,
 	preInlineUnconditionally, postInlineUnconditionally, activeInline, activeRule,
diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 43edcf5..36e723d 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -13,7 +13,7 @@ import DynFlags	( dopt, DynFlag(Opt_D_dump_inlinings),
 			)
 import SimplMonad
 import SimplEnv	
-import SimplUtils	( mkCase, mkLam, mkDataConAlt,
+import SimplUtils	( mkCase, mkLam, 
 			  SimplCont(..), DupFlag(..), LetRhsFlag(..), 
 			  mkRhsStop, mkBoringStop,  mkLazyArgStop, pushContArgs,
 			  contResultType, countArgs, contIsDupable, contIsRhsOrArg,