X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecConstr.lhs;h=222bcd188611ae02a2f9e656b38889e34e1303fb;hp=e3dc1b0d4b807c2033e2a24e26bea437341fd6a5;hb=7804af8c4a5bc02798423900a641a4aa77e5abfb;hpb=fa306a37eaae1020f4cbd6cbed04847db6c23273

diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index e3dc1b0..222bcd1 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -1107,15 +1107,14 @@ specialise env force_spec bind_calls (fn, arg_bndrs, body, arg_occs)
 
 		-- Bale out if too many specialisations
 		-- Rather a hacky way to do so, but it'll do for now
-	; let n_pats = length pats
-              spec_count' = length pats + spec_count
+	; let spec_count' = length pats + spec_count
 	; case sc_count env of
 	    Just max | not force_spec && spec_count' > max
 		-> pprTrace "SpecConstr" msg $  
                   return (nullUsage, spec_info)
 		where
 		   msg = vcat [ sep [ ptext (sLit "Function") <+> quotes (ppr fn)
-		       	            , nest 2 (ptext (sLit "has") <+> int n_pats <+> 
+		       	            , nest 2 (ptext (sLit "has") <+> int spec_count' <+>
                                               ptext (sLit "call patterns, but the limit is") <+> int max) ]
 			      , ptext (sLit "Use -fspec-constr-count=n to set the bound")
 			      , extra ]