patches/patch-libraries_integer-simple_GHC_Integer_Type.hs

   1 $NetBSD$
   2
   3 Missing functions: already fixed in the upstream.
   4
   5
   6 --- libraries/integer-simple/GHC/Integer/Type.hs.orig   2013-02-13 18:45:55.000000000 +0000
   7 +++ libraries/integer-simple/GHC/Integer/Type.hs
   8 @@ -370,6 +370,16 @@ n `divModInteger` d =
   9              then (# q `minusInteger` oneInteger, r `plusInteger` d #)
  10              else (# q, r #)
  11
  12 +{-# NOINLINE divInteger #-}
  13 +divInteger :: Integer -> Integer -> Integer
  14 +n `divInteger` d = quotient
  15 +    where (# quotient, _ #) = n `divModInteger` d
  16 +
  17 +{-# NOINLINE modInteger #-}
  18 +modInteger :: Integer -> Integer -> Integer
  19 +n `modInteger` d = modulus
  20 +    where (# _, modulus #) = n `divModInteger` d
  21 +
  22  {-# NOINLINE quotRemInteger #-}
  23  quotRemInteger :: Integer -> Integer -> (# Integer, Integer #)
  24  Naught      `quotRemInteger` (!_)        = (# Naught, Naught #)