diff options
author | Alberto Ruiz <aruiz@um.es> | 2007-06-22 10:21:15 +0000 |
---|---|---|
committer | Alberto Ruiz <aruiz@um.es> | 2007-06-22 10:21:15 +0000 |
commit | 989bdf7e88c13500bd1986dcde36f6cc4f467efb (patch) | |
tree | b30ff0dd52e2b6c2adb1dfe8759d03234f65c684 /lib/GSL/Fourier.hs | |
parent | aa14e6615533e7bd5e2b15acdc3ec76afbe1aac4 (diff) |
reverting to the old signatures for aux C functions
Diffstat (limited to 'lib/GSL/Fourier.hs')
-rw-r--r-- | lib/GSL/Fourier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/GSL/Fourier.hs b/lib/GSL/Fourier.hs index c8c79f0..bf6cd60 100644 --- a/lib/GSL/Fourier.hs +++ b/lib/GSL/Fourier.hs | |||
@@ -29,7 +29,7 @@ genfft code v = unsafePerformIO $ do | |||
29 | c_fft code // vec v // vec r // check "fft" [v] | 29 | c_fft code // vec v // vec r // check "fft" [v] |
30 | return r | 30 | return r |
31 | 31 | ||
32 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> Complex Double :> Complex Double :> IO Int | 32 | foreign import ccall "gsl-aux.h fft" c_fft :: Int -> TCVCV -- Complex Double :> Complex Double :> IO Int |
33 | 33 | ||
34 | 34 | ||
35 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. | 35 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. |