X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FndpFlatten%2FFlattenMonad.hs;h=a408eca279323909354b81c260eaf7ab04a20000;hb=f901ffc86ada53aaa65a3d941d344b9c036a6147;hp=4bca818dd3a4a4e986a6950899f36efaf3560c21;hpb=687fa3b2ed2db125575dc7065d4b7044924e66a1;p=ghc-hetmet.git

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'