From 03fe63b05a702d0b7d7d697ef284c61c29c8e501 Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Mon, 11 May 2015 07:10:52 +0100
Subject: [PATCH] [number] further remove gcde_binary

---
 Crypto/Number/ModArithmetic.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Crypto/Number/ModArithmetic.hs b/Crypto/Number/ModArithmetic.hs
index ab0ea0f..0bb7e3e 100644
--- a/Crypto/Number/ModArithmetic.hs
+++ b/Crypto/Number/ModArithmetic.hs
@@ -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.