X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsUtils.lhs;h=8c5a743c2021ac178066dfbbaaf6e63da830169c;hb=27ca67931713c36f5ed248de88298416892e5649;hp=4f44eb2db71f636b5a12f9603c4792c0252e3cc5;hpb=a1433cc95b8165bab8c65090642577dd51720f1f;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsUtils.lhs b/compiler/deSugar/DsUtils.lhs
index 4f44eb2..8c5a743 100644
--- a/compiler/deSugar/DsUtils.lhs
+++ b/compiler/deSugar/DsUtils.lhs
@@ -312,7 +312,7 @@ mkCoAlgCaseMatchResult var ty match_alts
     arg_id1 	= head arg_ids1
     var_ty      = idType var
     (tc, ty_args) = splitNewTyConApp var_ty
-    newtype_rhs = unwrapNewTypeBody tycon ty_args (Var var)
+    newtype_rhs = unwrapNewTypeBody tc ty_args (Var var)
 		
 	-- Stuff for data types
     data_cons      = tyConDataCons tycon