Repository : ssh://darcs.haskell.org//srv/darcs/packages/base On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ea74625471051d3b73bae87f26b6d087ba9c71dc >--------------------------------------------------------------- commit ea74625471051d3b73bae87f26b6d087ba9c71dc Author: Ian Lynagh <[email protected]> Date: Tue Jun 19 19:35:56 2012 +0100 Use divInteger and modInteger >--------------------------------------------------------------- GHC/Real.lhs | 6 ++++++ 1 files changed, 6 insertions(+), 0 deletions(-) diff --git a/GHC/Real.lhs b/GHC/Real.lhs index 2e2ff09..5a2cec7 100644 --- a/GHC/Real.lhs +++ b/GHC/Real.lhs @@ -368,6 +368,12 @@ instance Integral Integer where _ `rem` 0 = divZeroError n `rem` d = n `remInteger` d + _ `div` 0 = divZeroError + n `div` d = n `divInteger` d + + _ `mov` 0 = divZeroError + n `mov` d = n `movInteger` d + _ `divMod` 0 = divZeroError a `divMod` b = case a `divModInteger` b of (# x, y #) -> (x, y) _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
