1 files changed, 4 insertions, 3 deletions

diff --git a/packages/base/src/Internal/Conversion.hs b/packages/base/src/Internal/Conversion.hs
index 4541ec4..7eb8ec7 100644
--- a/packages/base/src/Internal/Conversion.hs
+++ b/packages/base/src/Internal/Conversion.hs
@@ -28,11 +28,12 @@ import Internal.Matrix
 import Internal.Vectorized
 import Data.Complex
 import Control.Arrow((***))
+import Foreign.Storable
 
 -------------------------------------------------------------------
 
 -- | Supported single-double precision type pairs
-class (Element s, Element d) => Precision s d | s -> d, d -> s where
+class (Storable s, Storable d) => Precision s d | s -> d, d -> s where
     double2FloatG :: Vector d -> Vector s
     float2DoubleG :: Vector s -> Vector d
 
@@ -50,7 +51,7 @@ instance Precision I Z where
 
 
 -- | Supported real types
-class (Element t, Element (Complex t), RealFloat t)
+class (Storable t, Storable (Complex t), RealFloat t)
     => RealElement t
 
 instance RealElement Double
@@ -69,7 +70,7 @@ class Complexable c where
 instance Complexable Vector where
     toComplex' = toComplexV
     fromComplex' = fromComplexV
-    comp' v = toComplex' (v,constantD 0 (dim v))
+    comp' v = toComplex' (v,constantAux 0 (dim v))
     single' = double2FloatG
     double' = float2DoubleG