From fc88b36a3067269aa0cd74d5aa56b46edb7bd129 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Wed, 2 Nov 2016 18:55:09 +0100 Subject: use new wrappers in gsl functions --- packages/gsl/src/Numeric/GSL/Vector.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'packages/gsl/src/Numeric/GSL/Vector.hs') diff --git a/packages/gsl/src/Numeric/GSL/Vector.hs b/packages/gsl/src/Numeric/GSL/Vector.hs index fb982c5..b1c0106 100644 --- a/packages/gsl/src/Numeric/GSL/Vector.hs +++ b/packages/gsl/src/Numeric/GSL/Vector.hs @@ -34,7 +34,7 @@ randomVector :: Int -- ^ seed -> Vector Double randomVector seed dist n = unsafePerformIO $ do r <- createVector n - c_random_vector_GSL (fi seed) ((fi.fromEnum) dist) # r #|"randomVectorGSL" + (r `applyRaw` id) (c_random_vector_GSL (fi seed) ((fi.fromEnum) dist)) #|"randomVectorGSL" return r foreign import ccall unsafe "random_vector_GSL" c_random_vector_GSL :: CInt -> CInt -> TV @@ -50,7 +50,7 @@ saveMatrix filename fmt m = do charname <- newCString filename charfmt <- newCString fmt let o = if orderOf m == RowMajor then 1 else 0 - matrix_fprintf charname charfmt o # m #|"matrix_fprintf" + (m `applyRaw` id) (matrix_fprintf charname charfmt o) #|"matrix_fprintf" free charname free charfmt @@ -63,7 +63,7 @@ fscanfVector :: FilePath -> Int -> IO (Vector Double) fscanfVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fscanf charname # res #|"gsl_vector_fscanf" + (res `applyRaw` id) (gsl_vector_fscanf charname) #|"gsl_vector_fscanf" free charname return res @@ -74,7 +74,7 @@ fprintfVector :: FilePath -> String -> Vector Double -> IO () fprintfVector filename fmt v = do charname <- newCString filename charfmt <- newCString fmt - gsl_vector_fprintf charname charfmt # v #|"gsl_vector_fprintf" + (v `applyRaw` id) (gsl_vector_fprintf charname charfmt) #|"gsl_vector_fprintf" free charname free charfmt @@ -85,7 +85,7 @@ freadVector :: FilePath -> Int -> IO (Vector Double) freadVector filename n = do charname <- newCString filename res <- createVector n - gsl_vector_fread charname # res #|"gsl_vector_fread" + (res `applyRaw` id) (gsl_vector_fread charname) #|"gsl_vector_fread" free charname return res @@ -95,7 +95,7 @@ foreign import ccall unsafe "vector_fread" gsl_vector_fread:: Ptr CChar -> TV fwriteVector :: FilePath -> Vector Double -> IO () fwriteVector filename v = do charname <- newCString filename - gsl_vector_fwrite charname # v #|"gsl_vector_fwrite" + (v `applyRaw` id) (gsl_vector_fwrite charname) #|"gsl_vector_fwrite" free charname foreign import ccall unsafe "vector_fwrite" gsl_vector_fwrite :: Ptr CChar -> TV -- cgit v1.2.3