Use divInteger and modInteger
authorIan Lynagh <igloo@earth.li>
Tue, 19 Jun 2012 18:35:56 +0000 (19:35 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 19 Jun 2012 18:35:56 +0000 (19:35 +0100)
GHC/Real.lhs

index 2e2ff09..5a2cec7 100644 (file)
@@ -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)