X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FSpecConstr.lhs;h=abf53604db27411b72d9f6e081cb195a9de1e2d4;hb=6f074a37a1546391632863898da3c32bbb7995df;hp=88da692fcac72a67d58dc7aa9c78ecb1e81aafc7;hpb=0da2eb6b04a57947fd2b32da9a648ad5eeeb6596;p=ghc-hetmet.git

diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs
index 88da692..abf5360 100644
--- a/compiler/specialise/SpecConstr.lhs
+++ b/compiler/specialise/SpecConstr.lhs
@@ -787,7 +787,8 @@ callToPats in_scope bndr_occs (con_env, args)
 		-- Quantify over variables that are not in sccpe
 		-- See Note [Shadowing] at the top
 		
-	; if or good_pats 
+	; -- pprTrace "callToPats"  (ppr args $$ ppr prs $$ ppr bndr_occs) $
+	  if or good_pats 
 	  then return (Just (qvars, pats))
 	  else return Nothing }