From 01a14ad32e0fd8586498ead61a426f20b724652b Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Thu, 22 Nov 2007 17:03:41 +0000
Subject: app1, app2, ...

---
 lib/Numeric/GSL/Minimization.hs | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

(limited to 'lib/Numeric/GSL/Minimization.hs')

diff --git a/lib/Numeric/GSL/Minimization.hs b/lib/Numeric/GSL/Minimization.hs
index e44b2e5..235a88f 100644
--- a/lib/Numeric/GSL/Minimization.hs
+++ b/lib/Numeric/GSL/Minimization.hs
@@ -196,22 +196,12 @@ aux_vTov f n p r = g where
 
 --------------------------------------------------------------------
 
-
 createV n fun msg = unsafePerformIO $ do
     r <- createVector n
-    withVector r $ \ r ->
-        fun // r // check msg
+    app1 fun vec r msg
     return r
 
-{-
-createM r c fun msg ptrs = unsafePerformIO $ do
-    r <- createMatrix RowMajor r c
-    fun // matc r // check msg ptrs
-    return r
--}
-
 createMIO r c fun msg = do
     r <- createMatrix RowMajor r c
-    withMatrix r $ \ r ->
-        fun // r // check msg
+    app1 fun mat r msg
     return r
-- 
cgit v1.2.3