X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=pkgsrc-ghc.git;a=blobdiff_plain;f=patches%2Fpatch-libraries_integer-simple_GHC_Integer_Type.hs;fp=patches%2Fpatch-libraries_integer-simple_GHC_Integer_Type.hs;h=b06fbaf43cd67d9ddd32e87da0973d6860229a3f;hp=0000000000000000000000000000000000000000;hb=9533b2b09d98a0e7326dc0c58d8d34febe5d3175;hpb=96e61103d139f67648ba7729b614e2cedcbb1ad4

diff --git a/patches/patch-libraries_integer-simple_GHC_Integer_Type.hs b/patches/patch-libraries_integer-simple_GHC_Integer_Type.hs
new file mode 100644
index 0000000..b06fbaf
--- /dev/null
+++ b/patches/patch-libraries_integer-simple_GHC_Integer_Type.hs
@@ -0,0 +1,24 @@
+$NetBSD$
+
+Missing functions: already fixed in the upstream.
+
+
+--- libraries/integer-simple/GHC/Integer/Type.hs.orig	2013-02-13 18:45:55.000000000 +0000
++++ libraries/integer-simple/GHC/Integer/Type.hs
+@@ -370,6 +370,16 @@ n `divModInteger` d =
+             then (# q `minusInteger` oneInteger, r `plusInteger` d #)
+             else (# q, r #)
+ 
++{-# NOINLINE divInteger #-}
++divInteger :: Integer -> Integer -> Integer
++n `divInteger` d = quotient
++    where (# quotient, _ #) = n `divModInteger` d
++
++{-# NOINLINE modInteger #-}
++modInteger :: Integer -> Integer -> Integer
++n `modInteger` d = modulus
++    where (# _, modulus #) = n `divModInteger` d
++
+ {-# NOINLINE quotRemInteger #-}
+ quotRemInteger :: Integer -> Integer -> (# Integer, Integer #)
+ Naught      `quotRemInteger` (!_)        = (# Naught, Naught #)