shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Cosmetic

--- a/lib/Data/Ratio.hs

+++ b/lib/Data/Ratio.hs

@@ -39,7 +39,7 @@

   (x:%y) + (x':%y')   =  reduce (x*y' + x'*y) (y*y')

   (x:%y) - (x':%y')   =  reduce (x*y' - x'*y) (y*y')

   (x:%y) * (x':%y')   =  reduce (x * x') (y * y')

-  negate (x:%y)       =  (negate x) :% y

+  negate (x:%y)       =  negate x :% y

   abs (x:%y)          =  abs x :% y

   signum (x:%_)       =  signum x :% 1

   fromInteger x       =  fromInteger x :% 1

-- 

⑨