1 files changed, 3 insertions, 2 deletions

diff --git a/packages/base/src/Internal/Algorithms.hs b/packages/base/src/Internal/Algorithms.hs
index f5bddc6..aa51792 100644
--- a/packages/base/src/Internal/Algorithms.hs
+++ b/packages/base/src/Internal/Algorithms.hs
@@ -39,6 +39,7 @@ import qualified Data.Vector.Storable as Vector
 import Internal.ST
 import Internal.Vectorized(range)
 import Control.DeepSeq
+import Foreign.Storable
 
 {- | Generic linear algebra functions for double precision real and complex matrices.
 
@@ -742,7 +743,7 @@ pinvTol t m = v' `mXm` diag s' `mXm` ctrans u' where
 
 
 -- | Numeric rank of a matrix from the SVD decomposition.
-rankSVD :: Element t
+rankSVD :: Storable t
         => Double   -- ^ numeric zero (e.g. 1*'eps')
         -> Matrix t -- ^ input matrix m
         -> Vector Double -- ^ 'sv' of m
@@ -1003,7 +1004,7 @@ fixPerm' s = res $ mutable f s0
     s0 = reshape 1 (range (length s))
     res = flatten . fst
     swap m i j = rowOper (SWAP i j AllCols) m
-    f :: (Num t, Element t) => (Int, Int) -> STMatrix s t -> ST s () -- needed because of TypeFamilies
+    f :: (Num t, Storable t) => (Int, Int) -> STMatrix s t -> ST s () -- needed because of TypeFamilies
     f _ p = sequence_ $ zipWith (swap p) [0..] s
 
 triang r c h v = (r><c) [el s t | s<-[0..r-1], t<-[0..c-1]]