diff options
| author | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
|---|---|---|
| committer | Alberto Ruiz <aruiz@um.es> | 2007-11-23 13:25:42 +0000 |
| commit | 30fdf02aff2ac1c4da2bb9292fc08cc8330580d0 (patch) | |
| tree | 82b062214626c20922959c82581decb3df2ba5ec /lib/Numeric/GSL/Differentiation.hs | |
| parent | 48139eb50c9052406839ee8375e378374e973207 (diff) | |
removed many -Wall warnings
Diffstat (limited to 'lib/Numeric/GSL/Differentiation.hs')
| -rw-r--r-- | lib/Numeric/GSL/Differentiation.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Numeric/GSL/Differentiation.hs b/lib/Numeric/GSL/Differentiation.hs index 09236bd..071704a 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
| @@ -34,7 +34,7 @@ derivGen :: | |||
| 34 | derivGen c h f x = unsafePerformIO $ do | 34 | derivGen c h f x = unsafePerformIO $ do |
| 35 | r <- malloc | 35 | r <- malloc |
| 36 | e <- malloc | 36 | e <- malloc |
| 37 | fp <- mkfun (\x _ -> f x) | 37 | fp <- mkfun (\y _ -> f y) |
| 38 | c_deriv c fp x h r e // check "deriv" | 38 | c_deriv c fp x h r e // check "deriv" |
| 39 | vr <- peek r | 39 | vr <- peek r |
| 40 | ve <- peek e | 40 | ve <- peek e |