move io

1 files changed, 10 insertions, 13 deletions

diff --git a/packages/base/src/Data/Packed/IO.hs b/packages/base/src/Internal/IO.hs
index b0999a8..e594a1c 100644
--- a/packages/base/src/Data/Packed/IO.hs
+++ b/packages/base/src/Internal/IO.hs
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------------
 -- |
--- Module      :  Data.Packed.IO
+-- Module      :  Internal.IO
 -- Copyright   :  (c) Alberto Ruiz 2010
 -- License     :  BSD3
 --
@@ -10,19 +10,22 @@
 -- Display, formatting and IO functions for numeric 'Vector' and 'Matrix'
 --
 -----------------------------------------------------------------------------
-{-# OPTIONS_HADDOCK hide #-}
 
-module Data.Packed.IO (
+module Internal.IO (
     dispf, disps, dispcf, vecdisp, latexFormat, format,
-    readMatrix, fromArray2D, loadMatrix, loadMatrix', saveMatrix
+    loadMatrix, loadMatrix', saveMatrix
 ) where
 
-import Data.Packed
+import Internal.Tools
+import Internal.Devel
+import Internal.Vector
+import Internal.Matrix
+import Internal.Vectorized
 import Text.Printf(printf)
 import Data.List(intersperse)
 import Data.Complex
-import Numeric.Vectorized(vectorScan,saveMatrix)
-import Data.Packed.Internal
+
+
 
 {- | Creates a string from a matrix given a separator and a function to show each entry. Using
 this function the user can easily define any desired display function:
@@ -136,12 +139,6 @@ dispcf d m = sdims m ++ "\n" ++ format "  " (showComplex d) m
 
 --------------------------------------------------------------------
 
--- | reads a matrix from a string containing a table of numbers.
-readMatrix :: String -> Matrix Double
-readMatrix = fromLists . map (map read). map words . filter (not.null) . lines
-
---------------------------------------------------------------------------------
-
 apparentCols :: FilePath -> IO Int
 apparentCols s = f . dropWhile null . map words . lines <$> readFile s
   where