1 files changed, 4 insertions, 3 deletions

diff --git a/packages/base/src/Internal/Convolution.hs b/packages/base/src/Internal/Convolution.hs
index 75fbef4..ae8ebc6 100644
--- a/packages/base/src/Internal/Convolution.hs
+++ b/packages/base/src/Internal/Convolution.hs
@@ -24,12 +24,13 @@ import Internal.Numeric
 import Internal.Element
 import Internal.Conversion
 import Internal.Container
+import Foreign.Storable
 #if MIN_VERSION_base(4,11,0)
 import Prelude hiding ((<>))
 #endif
 
 
-vectSS :: Element t => Int -> Vector t -> Matrix t
+vectSS :: Storable t => Int -> Vector t -> Matrix t
 vectSS n v = fromRows [ subVector k n v | k <- [0 .. dim v - n] ]
 
 
@@ -82,7 +83,7 @@ corrMin ker v
 
 
 
-matSS :: Element t => Int -> Matrix t -> [Matrix t]
+matSS :: Storable t => Int -> Matrix t -> [Matrix t]
 matSS dr m = map (reshape c) [ subVector (k*c) n v | k <- [0 .. r - dr] ]
   where
     v = flatten m
@@ -155,7 +156,7 @@ conv2 k m
     empty = r == 0 || c == 0
 
 
-separable :: Element t => (Vector t -> Vector t) -> Matrix t -> Matrix t
+separable :: Storable t => (Vector t -> Vector t) -> Matrix t -> Matrix t
 -- ^ matrix computation implemented as separated vector operations by rows and columns.
 separable f = fromColumns . map f . toColumns . fromRows . map f . toRows