summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2015-06-05 16:39:32 +0200
committerAlberto Ruiz <aruiz@um.es>2015-06-05 16:39:32 +0200
commitf20a94375c03bd6154f67fec1345e530acfc881d (patch)
treeadf818f40e8fd9b06f9445aaf086c98580a1dd4b
parent8b093ecca2b4e200ff191b84cb0b56a12312867b (diff)
move sparse
-rw-r--r--packages/base/src/Internal/Sparse.hs (renamed from packages/base/src/Numeric/Sparse.hs)11
1 files changed, 8 insertions, 3 deletions
diff --git a/packages/base/src/Numeric/Sparse.hs b/packages/base/src/Internal/Sparse.hs
index d856287..930bc99 100644
--- a/packages/base/src/Numeric/Sparse.hs
+++ b/packages/base/src/Internal/Sparse.hs
@@ -2,7 +2,7 @@
2{-# LANGUAGE MultiParamTypeClasses #-} 2{-# LANGUAGE MultiParamTypeClasses #-}
3{-# LANGUAGE FlexibleInstances #-} 3{-# LANGUAGE FlexibleInstances #-}
4 4
5module Numeric.Sparse( 5module Internal.Sparse(
6 GMatrix(..), CSR(..), mkCSR, fromCSR, 6 GMatrix(..), CSR(..), mkCSR, fromCSR,
7 mkSparse, mkDiagR, mkDense, 7 mkSparse, mkDiagR, mkDense,
8 AssocMatrix, 8 AssocMatrix,
@@ -10,15 +10,20 @@ module Numeric.Sparse(
10 gmXv, (!#>) 10 gmXv, (!#>)
11)where 11)where
12 12
13import Data.Packed.Numeric 13import Internal.Vector
14import Internal.Matrix
15import Internal.Numeric
16import Internal.Container
17import Internal.Tools
14import qualified Data.Vector.Storable as V 18import qualified Data.Vector.Storable as V
19import Data.Vector.Storable(fromList)
15import Data.Function(on) 20import Data.Function(on)
16import Control.Arrow((***)) 21import Control.Arrow((***))
17import Control.Monad(when) 22import Control.Monad(when)
18import Data.List(groupBy, sort) 23import Data.List(groupBy, sort)
19import Foreign.C.Types(CInt(..)) 24import Foreign.C.Types(CInt(..))
20 25
21import Data.Packed.Development 26import Internal.Devel
22import System.IO.Unsafe(unsafePerformIO) 27import System.IO.Unsafe(unsafePerformIO)
23import Foreign(Ptr) 28import Foreign(Ptr)
24import Text.Printf(printf) 29import Text.Printf(printf)