Fix vectorisation of recursive types

[ghc-hetmet.git] / compiler / vectorise / Vectorise / Type / Repr.hs

diff --git a/compiler/vectorise/Vectorise/Type/Repr.hs b/compiler/vectorise/Vectorise/Type/Repr.hs
index ea06d1f..bb300ca 100644 (file)
--- 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