From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 18 Jul 2007 02:52:24 +0000 (+0000)
Subject: Fix two typos
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0352fbec15ec165bb2c8020d09e38bb758c5accf;p=ghc-hetmet.git

Fix two typos
---

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