From: Michael Orlitzky <michael@orlitzky.com>
Date: Thu, 16 Apr 2015 01:36:29 +0000 (-0400)
Subject: Whitespace cleanup and hlint fix in RealFunction.
X-Git-Tag: 0.0.1~8
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=2ff335e99a1e12628b87037e08740fbb241413a6;p=spline3.git

Whitespace cleanup and hlint fix in RealFunction.
---

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