diff options
author | Alberto Ruiz <aruiz@um.es> | 2015-06-19 13:55:39 +0200 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2015-06-19 13:55:39 +0200 |
commit | db50bc11dafa6834a4367427156306674063ed6b (patch) | |
tree | 721e9d0235168be1d0ebb2bd1dd254a66251f274 /packages/sparse/src/Numeric/LinearAlgebra | |
parent | 7f9c7b5adf8f05653d15f19358f41c1916e8db70 (diff) |
removed the annoying appN adapter for the foreign functions.
replaced by several overloaded app variants in the style of
the module Internal.Foreign contributed by Mike Ledger.
Diffstat (limited to 'packages/sparse/src/Numeric/LinearAlgebra')
-rw-r--r-- | packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs b/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs index d75fec2..b2ca7f0 100644 --- a/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs +++ b/packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs | |||
@@ -27,7 +27,7 @@ dss :: CSR -> Vector Double -> Vector Double | |||
27 | dss CSR{..} b = unsafePerformIO $ do | 27 | dss CSR{..} b = unsafePerformIO $ do |
28 | size b /= csrNRows ??? printf "dss: incorrect sizes: (%d,%d) x %d" csrNRows csrNCols (size b) | 28 | size b /= csrNRows ??? printf "dss: incorrect sizes: (%d,%d) x %d" csrNRows csrNCols (size b) |
29 | r <- createVector csrNCols | 29 | r <- createVector csrNCols |
30 | app5 c_dss vec csrVals vec csrCols vec csrRows vec b vec r "dss" | 30 | c_dss `apply` csrVals `apply` csrCols `apply` csrRows `apply` b `apply` r #|"dss" |
31 | return r | 31 | return r |
32 | 32 | ||
33 | foreign import ccall unsafe "dss" | 33 | foreign import ccall unsafe "dss" |