From e7c82936949cc6354c9807922ccc43c948230a99 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 13 May 2008 20:06:41 +0000 Subject: [PATCH] Add a type signature to help GHC 6.4 Needed in lieu of -XRelaxedPolyRec --- compiler/cmm/ZipDataflow.hs | 3 +++ 1 file changed, 3 insertions(+) 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 = -- 1.7.10.4