From 2ff335e99a1e12628b87037e08740fbb241413a6 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Apr 2015 21:36:29 -0400 Subject: [PATCH] Whitespace cleanup and hlint fix in RealFunction. --- src/RealFunction.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/RealFunction.hs b/src/RealFunction.hs index 01e34bd..307a0f0 100644 --- a/src/RealFunction.hs +++ b/src/RealFunction.hs @@ -3,8 +3,7 @@ module RealFunction ( RealFunction, cmult, - fexp - ) + fexp ) where @@ -71,5 +70,5 @@ cmult coeff f = (*coeff) . f -- fexp :: (RealFunction a) -> Int -> (RealFunction a) fexp f n - | n == 0 = (\_ -> 1) + | n == 0 = const 1 | otherwise = \x -> (f x)^n -- 2.43.2