diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-09-24 11:33:33 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-09-25 21:14:36 -0400 |
| commit | 04bc50b3c8e40387a0d0f090ea23cd68923f1834 (patch) | |
| tree | 56eac59646066c462ef8e3e3dfa92d3e4a0b2ad9 /testsuite/tests/lib/integer/integerGcdExt.hs | |
| parent | 92daad241bf136a10346ecbf520d62921c82bf7d (diff) | |
| download | haskell-04bc50b3c8e40387a0d0f090ea23cd68923f1834.tar.gz | |
Bignum: implement extended GCD (#18427)
Diffstat (limited to 'testsuite/tests/lib/integer/integerGcdExt.hs')
| -rw-r--r-- | testsuite/tests/lib/integer/integerGcdExt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/lib/integer/integerGcdExt.hs b/testsuite/tests/lib/integer/integerGcdExt.hs index d060c2d3b2..2457b1ced2 100644 --- a/testsuite/tests/lib/integer/integerGcdExt.hs +++ b/testsuite/tests/lib/integer/integerGcdExt.hs @@ -9,10 +9,10 @@ import Control.Monad import GHC.Word import GHC.Base -import qualified GHC.Integer.GMP.Internals as I +import qualified GHC.Num.Integer as I gcdExtInteger :: Integer -> Integer -> (Integer, Integer) -gcdExtInteger a b = case I.gcdExtInteger a b of (# g, s #) -> (g, s) +gcdExtInteger a b = case I.integerGcde a b of ( g, s, _t ) -> (g, s) main :: IO () main = do |