diff options
| author | Alberto Ruiz <aruiz@um.es> | 2015-07-01 08:46:05 +0200 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2015-07-01 08:46:05 +0200 |
| commit | 0bdc40ca822e1b80089080da3fe03d0e31e7d927 (patch) | |
| tree | 200795ba8e6123fcceb7ab5e54cb2f097ae10279 /packages/base/src/Internal/Matrix.hs | |
| parent | f1ee7a4ff3870a72f73d99ac923f9230f3deecf5 (diff) | |
minor fix
Diffstat (limited to 'packages/base/src/Internal/Matrix.hs')
| -rw-r--r-- | packages/base/src/Internal/Matrix.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/packages/base/src/Internal/Matrix.hs b/packages/base/src/Internal/Matrix.hs index 5163421..a7fcb47 100644 --- a/packages/base/src/Internal/Matrix.hs +++ b/packages/base/src/Internal/Matrix.hs | |||
| @@ -128,7 +128,6 @@ amat f x = inlinePerformIO (unsafeWith (xdat x) (return . f r c sr sc)) | |||
| 128 | 128 | ||
| 129 | instance Storable t => TransArray (Matrix t) | 129 | instance Storable t => TransArray (Matrix t) |
| 130 | where | 130 | where |
| 131 | type Elem (Matrix t) = t | ||
| 132 | type TransRaw (Matrix t) b = CInt -> CInt -> Ptr t -> b | 131 | type TransRaw (Matrix t) b = CInt -> CInt -> Ptr t -> b |
| 133 | type Trans (Matrix t) b = CInt -> CInt -> CInt -> CInt -> Ptr t -> b | 132 | type Trans (Matrix t) b = CInt -> CInt -> CInt -> CInt -> Ptr t -> b |
| 134 | apply = amat | 133 | apply = amat |