From a27c3e2acfb2c37e6103639a9218a4cd20b54421 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 6 Jul 2015 18:38:17 +0200 Subject: use apply in saveMatrix --- packages/base/src/Internal/Matrix.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'packages/base/src/Internal/Matrix.hs') diff --git a/packages/base/src/Internal/Matrix.hs b/packages/base/src/Internal/Matrix.hs index 792fe35..3082e8d 100644 --- a/packages/base/src/Internal/Matrix.hs +++ b/packages/base/src/Internal/Matrix.hs @@ -577,7 +577,7 @@ foreign import ccall unsafe "gemm_mod_int64_t" c_gemmML :: Z -> Tgemm Z -------------------------------------------------------------------------------- foreign import ccall unsafe "saveMatrix" c_saveMatrix - :: CString -> CString -> Double ..> Ok + :: CString -> CString -> Double ::> Ok {- | save a matrix as a 2D ASCII table -} @@ -589,7 +589,7 @@ saveMatrix saveMatrix name format m = do cname <- newCString name cformat <- newCString format - c_saveMatrix cname cformat `applyRaw` m #|"saveMatrix" + c_saveMatrix cname cformat # m #|"saveMatrix" free cname free cformat return () -- cgit v1.2.3