diff options
Diffstat (limited to 'packages/base/src/Internal/Matrix.hs')
-rw-r--r-- | packages/base/src/Internal/Matrix.hs | 3 |
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 | |||
23 | import Internal.Vector | 23 | import Internal.Vector |
24 | import Internal.Devel | 24 | import Internal.Devel |
25 | import Internal.Vectorized hiding ((#), (#!)) | 25 | import Internal.Vectorized hiding ((#), (#!)) |
26 | import Internal.Specialized | ||
26 | import Foreign.Marshal.Alloc ( free ) | 27 | import Foreign.Marshal.Alloc ( free ) |
27 | import Foreign.Marshal.Array(newArray) | 28 | import Foreign.Marshal.Array(newArray) |
28 | import Foreign.Ptr ( Ptr ) | 29 | import Foreign.Ptr ( Ptr ) |
@@ -285,6 +286,7 @@ liftMatrix2 f m1@(size->(r,c)) m2 | |||
285 | 286 | ||
286 | ------------------------------------------------------------------ | 287 | ------------------------------------------------------------------ |
287 | 288 | ||
289 | {- | ||
288 | -- | Supported matrix elements. | 290 | -- | Supported matrix elements. |
289 | class (Storable a) => Element a where | 291 | class (Storable a) => Element a where |
290 | constantD :: a -> Int -> Vector a | 292 | constantD :: a -> Int -> Vector a |
@@ -377,6 +379,7 @@ instance Element Z where | |||
377 | rowOp = rowOpAux c_rowOpL | 379 | rowOp = rowOpAux c_rowOpL |
378 | gemm = gemmg c_gemmL | 380 | gemm = gemmg c_gemmL |
379 | reorderV = reorderAux c_reorderL | 381 | reorderV = reorderAux c_reorderL |
382 | -} | ||
380 | 383 | ||
381 | ------------------------------------------------------------------- | 384 | ------------------------------------------------------------------- |
382 | 385 | ||