X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprofiling%2FSCCfinal.lhs;h=483854748c27ccdf243ad40e1ed3c98609829b29;hb=46a825e77f5742d8881cf3f8fb59126257257338;hp=3cda937626cc855a07348af3891656ab9b5ff36f;hpb=db95d6e8d319b0c5cee1ccc23751e8190152ade3;p=ghc-hetmet.git

diff --git a/ghc/compiler/profiling/SCCfinal.lhs b/ghc/compiler/profiling/SCCfinal.lhs
index 3cda937..4838547 100644
--- a/ghc/compiler/profiling/SCCfinal.lhs
+++ b/ghc/compiler/profiling/SCCfinal.lhs
@@ -192,19 +192,19 @@ stgMassageForProfiling mod_name us stg_binds
 	do_alts alts		`thenMM` \ alts' ->
 	returnMM (StgCase expr' fv1 fv2 bndr srt alts')
       where
-	do_alts (StgAlgAlts ty alts def) 
+	do_alts (StgAlgAlts tycon alts def) 
 	  = mapMM do_alt alts 	`thenMM` \ alts' ->
 	    do_deflt def	`thenMM` \ def' ->
-	    returnMM (StgAlgAlts ty alts' def')
+	    returnMM (StgAlgAlts tycon alts' def')
 	  where
 	    do_alt (id, bs, use_mask, e)
 	      = do_expr e `thenMM` \ e' ->
 		returnMM (id, bs, use_mask, e')
 
-	do_alts (StgPrimAlts ty alts def) 
+	do_alts (StgPrimAlts tycon alts def) 
 	  = mapMM do_alt alts	`thenMM` \ alts' ->
 	    do_deflt def	`thenMM` \ def' ->
-	    returnMM (StgPrimAlts ty alts' def')
+	    returnMM (StgPrimAlts tycon alts' def')
 	  where
 	    do_alt (l,e)
 	      = do_expr e `thenMM` \ e' ->