Fix a bunch of hlint warnings.

[numerical-analysis.git] / src / Integration / Simpson.hs

diff --git a/src/Integration/Simpson.hs b/src/Integration/Simpson.hs
index c9ad414b4fa7cc85705af2604d2295524ceeb01e..6bfe258eb8e454b7a9dcc0c7221d4638eed3f61f 100644 (file)
--- a/src/Integration/Simpson.hs
+++ b/src/Integration/Simpson.hs
@@ -45,7 +45,7 @@ simpson_1 :: (RealField.C a, ToRational.C a, RealField.C b)
 simpson_1 f a b =
   coefficient * ((f a) + 4*(f midpoint) + (f b))
   where
-    coefficient = (fromRational' $ toRational (b - a)) / 6
+    coefficient = fromRational' $ (toRational (b - a)) / 6
     midpoint = (a + b) / 2