From 0bdc40ca822e1b80089080da3fe03d0e31e7d927 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 1 Jul 2015 08:46:05 +0200
Subject: minor fix

---
 packages/base/src/Internal/Devel.hs  | 2 --
 packages/base/src/Internal/Matrix.hs | 1 -
 2 files changed, 3 deletions(-)

(limited to 'packages/base')

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
-- 
cgit v1.2.3