measurable

commit 872e0ea389171703cc707443641b767838de8997
parent 9e2088b80c86ce3358227d53c897e45c1316c6ac
Author: Jared Tobin <jared@jtobin.ca>
Date:   Tue, 19 Nov 2013 20:40:42 +1300

Cosmetic changes to lifted mult functions.

Diffstat:
M
src/Measurable/Core.hs
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Measurable/Core.hs b/src/Measurable/Core.hs
@@ -187,9 +187,9 @@ roundTo n f = fromIntegral (round $ f * (10 ^ n) :: Int) / (10.0 ^^ n)
 
 -- | Lifted multiplication.
 (/*) :: (Num c, Applicative f) => f c -> f c -> f c
-f /* g  = liftA2 (*) f g
+(/*)  = liftA2 (*)
 
 -- | Doubly-lifted multiplication.
 (//*) :: (Num c, Applicative f, Applicative g) => f (g c) -> f (g c) -> f (g c)
-f //* g = liftA2 (liftA2 (*)) f g
+(//*) = liftA2 (/*)