From 9a1f06e3e8c356c941d0d9b7357b26a697545eae Mon Sep 17 00:00:00 2001
From: Vincent Hanquez <vincent@snarc.org>
Date: Tue, 22 Sep 2015 17:21:35 +0100
Subject: [PATCH] [ECC] add curveSizeBits

---
 Crypto/PubKey/ECC/Types.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Crypto/PubKey/ECC/Types.hs b/Crypto/PubKey/ECC/Types.hs
index 310955b..dbf4957 100644
--- a/Crypto/PubKey/ECC/Types.hs
+++ b/Crypto/PubKey/ECC/Types.hs
@@ -17,6 +17,7 @@ module Crypto.PubKey.ECC.Types
     , CurveBinary(..)
     , CurvePrime(..)
     , common_curve
+    , curveSizeBits
     , ecc_fx
     , ecc_p
     , CurveCommon(..)
@@ -160,6 +161,10 @@ curvesOIDs =
     ]
 -}
 
+-- | get the size of the curve in bits
+curveSizeBits :: Curve -> Int
+curveSizeBits = numBits . ecc_n . common_curve
+
 -- | Get the curve definition associated with a recommended known curve name.
 getCurveByName :: CurveName -> Curve
 getCurveByName SEC_p112r1 = CurveFP  $ CurvePrime