From f49ac4def26b38d3d084375007715156be347412 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Mon, 18 May 2009 09:29:32 +0000 Subject: free fromFile filename --- lib/Data/Packed/Internal/Matrix.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Data/Packed/Internal') 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 charname <- newCString filename res <- createMatrix RowMajor r c app1 (c_gslReadMatrix charname) mat res "gslReadMatrix" - --free charname -- TO DO: free the auxiliary CString + free charname return res foreign import ccall "matrix_fscanf" c_gslReadMatrix:: Ptr CChar -> TM -- cgit v1.2.3