X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFunction.hs;h=64ebfd09aa9bfb403f178c80abcd5cb758926b23;hb=HEAD;hp=bc851a045dd524856f208e781eecf6a66eaca99f;hpb=2e9590ba9cc6b3605bcc1e30a74b2ae8aca56a44;p=ghc-base.git

diff --git a/Data/Function.hs b/Data/Function.hs
index bc851a0..64ebfd0 100644
--- a/Data/Function.hs
+++ b/Data/Function.hs
@@ -80,4 +80,4 @@ fix f = let x = f x in x
 --   flip on (g . f)
 
 on :: (b -> b -> c) -> (a -> b) -> a -> a -> c
-(*) `on` f = \x y -> f x * f y
+(.*.) `on` f = \x y -> f x .*. f y