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/base/src/Internal/Sparse.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Internal/Sparse.hs') diff --git a/packages/base/src/Internal/Sparse.hs b/packages/base/src/Internal/Sparse.hs index b365c15..eb4ee1b 100644 --- a/packages/base/src/Internal/Sparse.hs +++ b/packages/base/src/Internal/Sparse.hs @@ -145,13 +145,13 @@ gmXv :: GMatrix -> Vector Double -> Vector Double gmXv SparseR { gmCSR = CSR{..}, .. } v = unsafePerformIO $ do dim v /= nCols ~!~ printf "gmXv (CSR): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) r <- createVector nRows - app5 c_smXv vec csrVals vec csrCols vec csrRows vec v vec r "CSRXv" + c_smXv # csrVals # csrCols # csrRows # v # r #|"CSRXv" return r gmXv SparseC { gmCSC = CSC{..}, .. } v = unsafePerformIO $ do dim v /= nCols ~!~ printf "gmXv (CSC): incorrect sizes: (%d,%d) x %d" nRows nCols (dim v) r <- createVector nRows - app5 c_smTXv vec cscVals vec cscRows vec cscCols vec v vec r "CSCXv" + c_smTXv # cscVals # cscRows # cscCols # v # r #|"CSCXv" return r gmXv Diag{..} v -- cgit v1.2.3