diff options
-rw-r--r-- | packages/base/src/Internal/Matrix.hs | 4 |
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 | ||
579 | foreign import ccall unsafe "saveMatrix" c_saveMatrix | 579 | foreign 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 | |||
589 | saveMatrix name format m = do | 589 | saveMatrix 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 () |