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/Fourier.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs
index 4b08625..149c1e1 100644
--- a/lib/Numeric/GSL/Fourier.hs
+++ b/lib/Numeric/GSL/Fourier.hs
@@ -26,8 +26,7 @@ import Foreign
 
 genfft code v = unsafePerformIO $ do
     r <- createVector (dim v)
-    ww2 withVector v withVector r $ \ v r ->
-        c_fft code // v // r // check "fft"
+    app2 (c_fft code) vec v vec r "fft"
     return r
 
 foreign import ccall "gsl-aux.h fft" c_fft ::  Int -> TCVCV
-- 
cgit v1.2.3