From f901ffc86ada53aaa65a3d941d344b9c036a6147 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 27 Nov 2003 11:08:06 +0000
Subject: [PATCH] [project @ 2003-11-27 11:08:06 by simonmar] Fix syntax error

---
 ghc/compiler/ndpFlatten/FlattenMonad.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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'
 
-- 
1.7.10.4