X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FZipDataflow.hs;h=1cb222f9288a7ae3a05a1988be2629b1a100af41;hp=f09368dfd7fa292a24cd9cb384dd59221404363c;hb=e7c82936949cc6354c9807922ccc43c948230a99;hpb=8e3f4465c2a85e6328df52939c9e2429dc63aaca

diff --git a/compiler/cmm/ZipDataflow.hs b/compiler/cmm/ZipDataflow.hs
index f09368d..1cb222f 100644
--- a/compiler/cmm/ZipDataflow.hs
+++ b/compiler/cmm/ZipDataflow.hs
@@ -448,6 +448,9 @@ forward_rew check_maybe return_graph = forw
                   ; a <- finish
                   ; return (a, g, fuel)
                   }
+          inner_rew :: DFM a b
+                    -> a -> Graph m l -> Fuel
+                    -> DFM a (b, Graph m l, Fuel)
           inner_rew = case depth of RewriteShallow -> don't_rewrite
                                     RewriteDeep -> rewrite emptyBlockEnv
           fixed_pt_and_fuel =