Changeset 10531 for src/Pugs/Prim/Numeric.hs

Timestamp:

06/04/06 06:38:29 (3 years ago)

Author:

audreyt

Message:

* Pugs.Prim.Numeric: remove a defaulting warning.

Files:

• src/Pugs/Prim/Numeric.hs (modified) (1 diff)

src/Pugs/Prim/Numeric.hs

@@ -98 +98 @@
     err = fail "Illegal modulus zero"
     fmod :: RealFrac a => a -> a -> a
-    fmod x y = let mod = x - (fromIntegral (truncate (x/y)) * y) in
+    fmod x y = let mod = x - (fromIntegral (truncate (x/y) :: Integer) * y) in
         if signum y * signum mod < 0 then mod + y else mod