[number] further remove gcde_binary

This commit is contained in:
Vincent Hanquez 2015-05-11 07:10:52 +01:00
parent 4bcf193a12
commit 03fe63b05a

View File

@ -32,7 +32,7 @@ import Data.Typeable
#if MIN_VERSION_integer_gmp(0,5,1)
import GHC.Integer.GMP.Internals
#else
import Crypto.Number.Basic (gcde_binary)
import Crypto.Number.Basic (gcde)
import Data.Bits
#endif
@ -137,7 +137,7 @@ inverse g m
inverse g m
| d > 1 = Nothing
| otherwise = Just (x `mod` m)
where (x,_,d) = gcde_binary g m
where (x,_,d) = gcde g m
#endif
-- | Compute the modular inverse of 2 coprime numbers.