summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--packages/base/src/Internal/Matrix.hs4
1 files changed, 2 insertions, 2 deletions
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
577-------------------------------------------------------------------------------- 577--------------------------------------------------------------------------------
578 578
579foreign import ccall unsafe "saveMatrix" c_saveMatrix 579foreign import ccall unsafe "saveMatrix" c_saveMatrix
580 :: CString -> CString -> Double ..> Ok 580 :: CString -> CString -> Double ::> Ok
581 581
582{- | save a matrix as a 2D ASCII table 582{- | save a matrix as a 2D ASCII table
583-} 583-}
@@ -589,7 +589,7 @@ saveMatrix
589saveMatrix name format m = do 589saveMatrix name format m = do
590 cname <- newCString name 590 cname <- newCString name
591 cformat <- newCString format 591 cformat <- newCString format
592 c_saveMatrix cname cformat `applyRaw` m #|"saveMatrix" 592 c_saveMatrix cname cformat # m #|"saveMatrix"
593 free cname 593 free cname
594 free cformat 594 free cformat
595 return () 595 return ()