[ECC] add Bounded instance to CurveName

2016-04-09 13:46:06 +01:00 · 2016-04-09 13:46:06 +01:00 · fd24980530
commit fd24980530
parent 605e5cf6a6
1 changed files with 1 additions and 1 deletions
--- a/Crypto/PubKey/ECC/Types.hs
+++ b/Crypto/PubKey/ECC/Types.hs
@ -121,7 +121,7 @@ data CurveName =
    | SEC_t409r1
    | SEC_t571k1
    | SEC_t571r1
-    deriving (Show,Read,Eq,Ord,Enum,Data,Typeable)
+    deriving (Show,Read,Eq,Ord,Enum,Bounded,Data,Typeable)

 {-
 curvesOIDs :: [ (CurveName, [Integer]) ]