app1, app2, ...

1 files changed, 2 insertions, 12 deletions

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