haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[number] further remove gcde_binary

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-11 07:10:52 +01:00
parent 4bcf193a12
commit 03fe63b05a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Number/ModArithmetic.hs
View File

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