X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplCore%2FSimplVar.lhs;h=c5059dfd86d1a0dbba3239fcefdb124af1fab366;hp=9cbbe560bf8e1d2fc957ac11b55e775cd62d0bbe;hb=68a1f0233996ed79824d11d946e9801473f6946c;hpb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f

diff --git a/ghc/compiler/simplCore/SimplVar.lhs b/ghc/compiler/simplCore/SimplVar.lhs
index 9cbbe56..c5059df 100644
--- a/ghc/compiler/simplCore/SimplVar.lhs
+++ b/ghc/compiler/simplCore/SimplVar.lhs
@@ -170,7 +170,7 @@ considerUnfolding env var args txt_occ form_summary template guidance
 	      dont_go_for_it
 
 	   else if n_vals_wanted == 0
-		&& looks_like_a_data_val_to_me then
+		&& rhs_looks_like_a_CoCon then
 	      -- we are very keen on inlining data values
 	      -- (see comments elsewhere); we ignore any size issues!
 	      go_for_it
@@ -201,7 +201,7 @@ considerUnfolding env var args txt_occ form_summary template guidance
     no_tyargs  = length tyargs
     no_valargs = length valargs
 
-    looks_like_a_data_val_to_me
+    rhs_looks_like_a_CoCon
       = let
 	    (_,val_binders,body) = digForLambdas template
     	in