X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FReal.lhs;fp=GHC%2FReal.lhs;h=fa70ded93d66135d63c439eabdfb06237c9026a6;hb=5dac514410303675fe60985c502c2c2863da616c;hp=be2a296439b78f180d83eea207192a84709724a2;hpb=68871b8dc3e82472e98cecdbf8e629091c83549e;p=ghc-base.git

diff --git a/GHC/Real.lhs b/GHC/Real.lhs
index be2a296..fa70ded 100644
--- a/GHC/Real.lhs
+++ b/GHC/Real.lhs
@@ -245,32 +245,32 @@ instance  Integral Int  where
 
     a `quot` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `quotInt` b
 
     a `rem` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `remInt` b
 
     a `div` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `divInt` b
 
     a `mod` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `modInt` b
 
     a `quotRem` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `quotRemInt` b
 
     a `divMod` b
      | b == 0                     = divZeroError
-     | a == minBound && b == (-1) = overflowError
+     | b == (-1) && a == minBound = overflowError
      | otherwise                  =  a `divModInt` b
 \end{code}