From 0352fbec15ec165bb2c8020d09e38bb758c5accf Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Wed, 18 Jul 2007 02:52:24 +0000 Subject: [PATCH] Fix two typos --- compiler/vectorise/VectType.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs index 46c3267..45b22ad 100644 --- a/compiler/vectorise/VectType.hs +++ b/compiler/vectorise/VectType.hs @@ -139,7 +139,7 @@ vectDataCon dc arg_tys <- mapM vectType rep_arg_tys wrk_name <- cloneName mkDataConWorkerOcc name' - let ids = mkDataConIds (panic "vectDataCon: wrapped id") + let ids = mkDataConIds (panic "vectDataCon: wrapper id") wrk_name data_con data_con = mkDataCon name' @@ -158,7 +158,7 @@ vectDataCon dc where name = dataConName dc univ_tvs = dataConUnivTyVars dc - rep_arg_tys = dataConOrigArgTys dc + rep_arg_tys = dataConRepArgTys dc tycon = dataConTyCon dc -- | Split the given tycons into two sets depending on whether they have to be -- 1.7.10.4