Replace (fromRational . toRational) with realToFrac everywhere.

[numerical-analysis.git] / src / ODE / IVP.hs

diff --git a/src/ODE/IVP.hs b/src/ODE/IVP.hs
index d4876ded2dfe4994bdfb4c7841be7ef84d0a930a..6bde763a8e264549b8dae24ecbe945b57c0b4e99 100644 (file)
--- a/src/ODE/IVP.hs
+++ b/src/ODE/IVP.hs
@@ -35,7 +35,7 @@ eulers_method1 :: (RealFrac a, RealFrac b)
 eulers_method1 x0 y0 f h =
   y0 +  h'*y'
   where
-    h' = fromRational $ toRational h
+    h' = realToFrac h
     y' = (f x0 y0)