diff options
| author | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2012-03-13 15:23:30 +0100 |
| commit | b959655b75da207fd7ac1c785a6ea9924d70d5a6 (patch) | |
| tree | 0031778af5633100993d8447a5cbe021b1d3066f /lib/Numeric/GSL/Fourier.hs | |
| parent | c5fcca336f7d1ad6235d411268d8ff946bbe7f0c (diff) | |
| parent | 0904bbd0befa48e98858def1b6d036c5b2f00bf1 (diff) | |
Merge branch 'unsafe' into develop
Diffstat (limited to 'lib/Numeric/GSL/Fourier.hs')
| -rw-r--r-- | lib/Numeric/GSL/Fourier.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Fourier.hs b/lib/Numeric/GSL/Fourier.hs index 71bc8a1..4ef19b3 100644 --- a/lib/Numeric/GSL/Fourier.hs +++ b/lib/Numeric/GSL/Fourier.hs | |||
| @@ -30,7 +30,7 @@ genfft code v = unsafePerformIO $ do | |||
| 30 | app2 (c_fft code) vec v vec r "fft" | 30 | app2 (c_fft code) vec v vec r "fft" |
| 31 | return r | 31 | return r |
| 32 | 32 | ||
| 33 | foreign import ccall "gsl-aux.h fft" c_fft :: CInt -> TCVCV | 33 | foreign import ccall unsafe "gsl-aux.h fft" c_fft :: CInt -> TCVCV |
| 34 | 34 | ||
| 35 | 35 | ||
| 36 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. | 36 | {- | Fast 1D Fourier transform of a 'Vector' @(@'Complex' 'Double'@)@ using /gsl_fft_complex_forward/. It uses the same scaling conventions as GNU Octave. |