src/*.hs: fix all -Woperator-whitespace warnings

[spline3.git] / src / RealFunction.hs

diff --git a/src/RealFunction.hs b/src/RealFunction.hs
index 37babf6b7fc351c1ac6621b2eaa4ce0e8962b056..f6d0482633ea14dd3c5059b99dc79fd4ed50abd5 100644 (file)
--- a/src/RealFunction.hs
+++ b/src/RealFunction.hs
@@ -74,4 +74,4 @@ cmult coeff f = (*coeff) . f
 fexp :: (RealFunction a) -> Int -> (RealFunction a)
 fexp f n
      | n == 0 = const 1
-     | otherwise = \x -> (f x)^n
+     | otherwise = \x -> (f x) ^ n