From: Ian Lynagh <igloo@earth.li>
Date: Tue, 13 May 2008 20:06:41 +0000 (+0000)
Subject: Add a type signature to help GHC 6.4
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e7c82936949cc6354c9807922ccc43c948230a99

Add a type signature to help GHC 6.4
Needed in lieu of -XRelaxedPolyRec
---

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 =