From: simonmar <unknown>
Date: Thu, 27 Nov 2003 11:08:06 +0000 (+0000)
Subject: [project @ 2003-11-27 11:08:06 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~225
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f901ffc86ada53aaa65a3d941d344b9c036a6147;p=ghc-hetmet.git

[project @ 2003-11-27 11:08:06 by simonmar]
Fix syntax error
---

diff --git a/ghc/compiler/ndpFlatten/FlattenMonad.hs b/ghc/compiler/ndpFlatten/FlattenMonad.hs
index 4bca818..a408eca 100644
--- a/ghc/compiler/ndpFlatten/FlattenMonad.hs
+++ b/ghc/compiler/ndpFlatten/FlattenMonad.hs
@@ -267,7 +267,7 @@ packContext perm m  = Flatten $ \state ->
     (r, packedState') = unFlatten m packedState
     resState	      = state {    -- revert to the unpacked context
 			  ctxtVar  = ctxtVar state,
-			  ctxtEnv  = ctxtEnv state,
+			  ctxtEnv  = ctxtEnv state
 		        }
     bndrs	      = map mkCoreBind . varSetElems . usedVars $ packedState'