diff options
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 e7fea92..09236bd 100644 --- a/lib/Numeric/GSL/Differentiation.hs +++ b/lib/Numeric/GSL/Differentiation.hs | |||
@@ -35,7 +35,7 @@ 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 (\x _ -> f x) |
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 |
41 | let result = (vr,ve) | 41 | let result = (vr,ve) |