minor fix

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
   where
     type Trans c b
     type TransRaw c b
-    type Elem c
     apply      :: (Trans c b) -> c -> b
     applyRaw   :: (TransRaw c b) -> c -> b
     infixl 1 `apply`, `applyRaw`
@@ -89,7 +88,6 @@ instance Storable t => TransArray (Vector t)
   where
     type Trans (Vector t) b    = CInt -> Ptr t -> b
     type TransRaw (Vector t) b = CInt -> Ptr t -> b
-    type Elem (Vector t)       = t
     apply = avec
     {-# INLINE apply #-}
     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))
 
 instance Storable t => TransArray (Matrix t)
   where
-    type Elem (Matrix t)       = t
     type TransRaw (Matrix t) b = CInt -> CInt -> Ptr t -> b
     type Trans (Matrix t) b    = CInt -> CInt -> CInt -> CInt -> Ptr t -> b
     apply = amat