X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FRealFunction.hs;fp=src%2FRealFunction.hs;h=f6d0482633ea14dd3c5059b99dc79fd4ed50abd5;hb=0696fc4f3e428d2156f0be4ca40728abf2e35abe;hp=37babf6b7fc351c1ac6621b2eaa4ce0e8962b056;hpb=d47fe5a8e167d8bdc0b4edf2899eee351615ccf8;p=spline3.git

diff --git a/src/RealFunction.hs b/src/RealFunction.hs
index 37babf6..f6d0482 100644
--- 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