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

[number] add simple combinator

Browse Source
This commit is contained in:
Vincent Hanquez 2015-05-11 07:09:44 +01:00
parent 427541064d
commit 5c0daae88c
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Crypto/Number/Compat.hs
View File

@ -11,6 +11,7 @@
{-# LANGUAGE UnboxedTuples #-} {-# LANGUAGE UnboxedTuples #-}
module Crypto.Number.Compat module Crypto.Number.Compat
( GmpSupported(..) ( GmpSupported(..)
, onGmpUnsupported
, gmpGcde , gmpGcde
, gmpLog2 , gmpLog2
, gmpPowModSecInteger , gmpPowModSecInteger
@ -39,6 +40,10 @@ data GmpSupported a = GmpSupported a
| GmpUnsupported | GmpUnsupported
deriving (Show,Eq) deriving (Show,Eq)
onGmpUnsupported :: GmpSupported a -> a -> a
onGmpUnsupported (GmpSupported a) _ = a
onGmpUnsupported GmpUnsupported f = f
gmpGcde :: Integer -> Integer -> GmpSupported (Integer, Integer, Integer) gmpGcde :: Integer -> Integer -> GmpSupported (Integer, Integer, Integer)
#if MIN_VERSION_integer_gmp(0,5,1) #if MIN_VERSION_integer_gmp(0,5,1)
gmpGcde a b = gmpGcde a b =