[clean up fixIO
David Roundy <droundy@darcs.net>**20090905130434
 Ignore-this: a54d45a08fed774311a62f397aa277d763c9b55d
] hunk ./lib/jhc/Jhc/IO.hs 113
-fixIO k = IO $ \w -> let
-            r = case k ans of
-                    IO z -> case z w of
-                        (# w, r #) -> FixIO w r
-            ans = case r of
-                FixIO _ z -> z
-               in case r of
-                FixIO w z -> (# w, z #)
+fixIO k = IO $ \w -> let r = case k ans of
+                               IO z -> case z w of
+                                         (# w', r' #) -> FixIO w' r'
+                         ans = case r of
+                                 FixIO _ z -> z
+                     in case r of
+                          FixIO w' z -> (# w', z #)