Factored Element specialization out of Matrix module.

1 files changed, 3 insertions, 0 deletions

diff --git a/packages/base/src/Internal/Matrix.hs b/packages/base/src/Internal/Matrix.hs
index 5436e59..7c774ef 100644
--- a/packages/base/src/Internal/Matrix.hs
+++ b/packages/base/src/Internal/Matrix.hs
@@ -23,6 +23,7 @@ module Internal.Matrix where
 import Internal.Vector
 import Internal.Devel
 import Internal.Vectorized hiding ((#), (#!))
+import Internal.Specialized
 import Foreign.Marshal.Alloc ( free )
 import Foreign.Marshal.Array(newArray)
 import Foreign.Ptr ( Ptr )
@@ -285,6 +286,7 @@ liftMatrix2 f m1@(size->(r,c)) m2
 
 ------------------------------------------------------------------
 
+{-
 -- | Supported matrix elements.
 class (Storable a) => Element a where
     constantD  :: a -> Int -> Vector a
@@ -377,6 +379,7 @@ instance Element Z where
     rowOp      = rowOpAux c_rowOpL
     gemm       = gemmg c_gemmL
     reorderV   = reorderAux c_reorderL
+-}
 
 -------------------------------------------------------------------