X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectorise%2FType%2FRepr.hs;h=bb300ca8636edb8de2289a802c28530c9d333fbd;hb=ff3bfae6010625b7ffe96bc62e8e139870684600;hp=ea06d1f9f859598bc5b742b7621169ceb54785d4;hpb=1a24ae99d0a7c0a2c6d8104b20405a69da9b9754;p=ghc-hetmet.git

diff --git a/compiler/vectorise/Vectorise/Type/Repr.hs b/compiler/vectorise/Vectorise/Type/Repr.hs
index ea06d1f..bb300ca 100644
--- a/compiler/vectorise/Vectorise/Type/Repr.hs
+++ b/compiler/vectorise/Vectorise/Type/Repr.hs
@@ -12,7 +12,7 @@ module Vectorise.Type.Repr
 	, compReprType
 	, compOrigType)
 where
-import VectUtils
+import Vectorise.Utils
 import Vectorise.Monad
 import Vectorise.Builtins
 
@@ -82,7 +82,7 @@ tyConRepr tc = sum_repr (tyConDataCons tc)
       where
         arity = length tys
     
-    comp_repr ty = liftM (Keep ty) (prDictOfType ty)
+    comp_repr ty = liftM (Keep ty) (prDictOfReprType ty)
                    `orElseV` return (Wrap ty)
 
 sumReprType :: SumRepr -> VM Type