From db50bc11dafa6834a4367427156306674063ed6b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Fri, 19 Jun 2015 13:55:39 +0200 Subject: 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. --- packages/sparse/src/Numeric/LinearAlgebra/Sparse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'packages/sparse/src') 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 dss CSR{..} b = unsafePerformIO $ do size b /= csrNRows ??? printf "dss: incorrect sizes: (%d,%d) x %d" csrNRows csrNCols (size b) r <- createVector csrNCols - app5 c_dss vec csrVals vec csrCols vec csrRows vec b vec r "dss" + c_dss `apply` csrVals `apply` csrCols `apply` csrRows `apply` b `apply` r #|"dss" return r foreign import ccall unsafe "dss" -- cgit v1.2.3