X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FRules.lhs;h=1ab02bb4fb5c18a7ff78e34e1a33cf7f32a3748d;hb=a515009d89b62d6bc4fc34844db37edb5d4ef6ac;hp=0a06854237e6689f7f7afb5f593c2165b1c7bf8f;hpb=7a327c1297615a9498e7117a0017b09ff2458d53;p=ghc-hetmet.git

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index 0a06854..1ab02bb 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -231,7 +231,8 @@ matchRules is_active in_scope fn args rules
     go ms []	       = ms
     go ms (r:rs) = case (matchRule is_active in_scope args rough_args r) of
 			Just e  -> go ((r,e):ms) rs
-			Nothing -> -- pprTrace "Failed match" ((ppr r) $$ (ppr args)) $
+			Nothing -> -- pprTrace "match failed" (ppr r $$ ppr args $$ 
+				   --	ppr [(arg_id, unfoldingTemplate unf) | Var arg_id <- args, let unf = idUnfolding arg_id, isCheapUnfolding unf] )
 				   go ms         rs
 
 findBest :: (Id, [CoreExpr])