From 421239ec7075bcff602b09192bbf0f0b9bff1a18 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Fri, 9 Aug 2019 19:31:17 -0400 Subject: Factored Element specialization out of Matrix module. --- packages/base/src/Internal/Matrix.hs | 3 +++ 1 file changed, 3 insertions(+) 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 +-} ------------------------------------------------------------------- -- cgit v1.2.3