summaryrefslogtreecommitdiff
path: root/packages/base/src
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-07-01 08:46:05 +0200
committerAlberto Ruiz <aruiz@um.es>2015-07-01 08:46:05 +0200
commit0bdc40ca822e1b80089080da3fe03d0e31e7d927 (patch)
tree200795ba8e6123fcceb7ab5e54cb2f097ae10279 /packages/base/src
parentf1ee7a4ff3870a72f73d99ac923f9230f3deecf5 (diff)
minor fix
Diffstat (limited to 'packages/base/src')
-rw-r--r--packages/base/src/Internal/Devel.hs2
-rw-r--r--packages/base/src/Internal/Matrix.hs1
2 files changed, 0 insertions, 3 deletions
diff --git a/packages/base/src/Internal/Devel.hs b/packages/base/src/Internal/Devel.hs
index 710d626..92b5604 100644
--- a/packages/base/src/Internal/Devel.hs
+++ b/packages/base/src/Internal/Devel.hs
@@ -80,7 +80,6 @@ class TransArray c
80 where 80 where
81 type Trans c b 81 type Trans c b
82 type TransRaw c b 82 type TransRaw c b
83 type Elem c
84 apply :: (Trans c b) -> c -> b 83 apply :: (Trans c b) -> c -> b
85 applyRaw :: (TransRaw c b) -> c -> b 84 applyRaw :: (TransRaw c b) -> c -> b
86 infixl 1 `apply`, `applyRaw` 85 infixl 1 `apply`, `applyRaw`
@@ -89,7 +88,6 @@ instance Storable t => TransArray (Vector t)
89 where 88 where
90 type Trans (Vector t) b = CInt -> Ptr t -> b 89 type Trans (Vector t) b = CInt -> Ptr t -> b
91 type TransRaw (Vector t) b = CInt -> Ptr t -> b 90 type TransRaw (Vector t) b = CInt -> Ptr t -> b
92 type Elem (Vector t) = t
93 apply = avec 91 apply = avec
94 {-# INLINE apply #-} 92 {-# INLINE apply #-}
95 applyRaw = avec 93 applyRaw = avec
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
129instance Storable t => TransArray (Matrix t) 129instance 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