summaryrefslogtreecommitdiff
path: root/lib/Data/Packed
diff options
context:
space:
mode:
authorAlberto Ruiz <aruiz@um.es>2009-05-18 09:29:32 +0000
committerAlberto Ruiz <aruiz@um.es>2009-05-18 09:29:32 +0000
commitf49ac4def26b38d3d084375007715156be347412 (patch)
tree6e19a3d5fabf4c0c92b653241e23946b620906dd /lib/Data/Packed
parentead458786713d4b66933938b304886f629179613 (diff)
free fromFile filename
Diffstat (limited to 'lib/Data/Packed')
-rw-r--r--lib/Data/Packed/Internal/Matrix.hs2
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
362foreign import ccall "matrix_fscanf" c_gslReadMatrix:: Ptr CChar -> TM 362foreign import ccall "matrix_fscanf" c_gslReadMatrix:: Ptr CChar -> TM