1 files changed, 5 insertions, 4 deletions

diff --git a/packages/base/src/Internal/IO.hs b/packages/base/src/Internal/IO.hs
index b0f5606..de5eea5 100644
--- a/packages/base/src/Internal/IO.hs
+++ b/packages/base/src/Internal/IO.hs
@@ -23,6 +23,7 @@ import Internal.Vectorized
 import Text.Printf(printf, PrintfArg, PrintfType)
 import Data.List(intersperse,transpose)
 import Data.Complex
+import Foreign.Storable
 
 
 -- | Formatting tool
@@ -45,7 +46,7 @@ this function the user can easily define any desired display function:
 @disp = putStr . format \"  \" (printf \"%.2f\")@
 
 -}
-format :: (Element t) => String -> (t -> String) -> Matrix t -> String
+format :: (Storable t) => String -> (t -> String) -> Matrix t -> String
 format sep f m = table sep . map (map f) . toLists $ m
 
 {- | Show a matrix with \"autoscaling\" and a given number of decimal places.
@@ -81,14 +82,14 @@ dispf d x = sdims x ++ "\n" ++ formatFixed (if isInt x then 0 else d) x
 sdims :: Matrix t -> [Char]
 sdims x = show (rows x) ++ "x" ++ show (cols x)
 
-formatFixed :: (Show a, Text.Printf.PrintfArg t, Element t)
+formatFixed :: (Show a, Text.Printf.PrintfArg t, Storable t)
             => a -> Matrix t -> String
 formatFixed d x = format "  " (printf ("%."++show d++"f")) $ x
 
 isInt :: Matrix Double -> Bool
 isInt = all lookslikeInt . toList . flatten
 
-formatScaled :: (Text.Printf.PrintfArg b, RealFrac b, Floating b, Num t, Element b, Show t)
+formatScaled :: (Text.Printf.PrintfArg b, RealFrac b, Floating b, Num t, Storable b, Show t)
              => t -> Matrix b -> [Char]
 formatScaled dec t = "E"++show o++"\n" ++ ss
     where ss = format " " (printf fmt. g) t
@@ -104,7 +105,7 @@ formatScaled dec t = "E"++show o++"\n" ++ ss
 10 |> 0.00  0.11  0.22  0.33  0.44  0.56  0.67  0.78  0.89  1.00
 
 -}
-vecdisp :: (Element t) => (Matrix t -> String) -> Vector t -> String
+vecdisp :: (Storable t) => (Matrix t -> String) -> Vector t -> String
 vecdisp f v
     = ((show (dim v) ++ " |> ") ++) . (++"\n")
     . unwords . lines .  tail . dropWhile (not . (`elem` " \n"))