diff options
| author | Alberto Ruiz <aruiz@um.es> | 2009-05-18 09:29:32 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2009-05-18 09:29:32 +0000 |
| commit | f49ac4def26b38d3d084375007715156be347412 (patch) | |
| tree | 6e19a3d5fabf4c0c92b653241e23946b620906dd /lib | |
| parent | ead458786713d4b66933938b304886f629179613 (diff) | |
free fromFile filename
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Data/Packed/Internal/Matrix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Data/Packed/Internal/Matrix.hs b/lib/Data/Packed/Internal/Matrix.hs index 7678a12..ccc652a 100644 --- a/lib/Data/Packed/Internal/Matrix.hs +++ b/lib/Data/Packed/Internal/Matrix.hs | |||
| @@ -357,6 +357,6 @@ fromFile filename (r,c) = do | |||
| 357 | charname <- newCString filename | 357 | charname <- newCString filename |
| 358 | res <- createMatrix RowMajor r c | 358 | res <- createMatrix RowMajor r c |
| 359 | app1 (c_gslReadMatrix charname) mat res "gslReadMatrix" | 359 | app1 (c_gslReadMatrix charname) mat res "gslReadMatrix" |
| 360 | --free charname -- TO DO: free the auxiliary CString | 360 | free charname |
| 361 | return res | 361 | return res |
| 362 | foreign import ccall "matrix_fscanf" c_gslReadMatrix:: Ptr CChar -> TM | 362 | foreign import ccall "matrix_fscanf" c_gslReadMatrix:: Ptr CChar -> TM |