Ian Lynagh wrote:
Fix a space leak
Ian Lynagh <[EMAIL PROTECTED]>**20080830192619] {
hunk ./compiler/rename/RnEnv.lhs 871
-mapFvRn f xs = mappM f xs `thenM` \ stuff ->
- let
- (ys, fvs_s) = unzip stuff
- in
- returnM (ys, plusFVs fvs_s)
+mapFvRn f xs = do stuff <- mappM f xs
+ case unzip stuff of
+ (ys, fvs_s) -> returnM (ys, plusFVs fvs_s)
}
Another case of the selector-thunk machinery not doing what it is supposed
to do?
Cheers,
Simon
_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc
