A start at DSA test case generation.

2019-03-05 21:47:48 -07:00
parent b3276ce2f6
commit cc83b239cc
9 changed files with 121 additions and 21 deletions
--- a/test-generator/Utils.hs
+++ b/test-generator/Utils.hs
@@ -1,9 +1,10 @@
+{-# LANGUAGE PackageImports #-}
 module Utils(HashAlg(..), generateHash, runHash, showHash)
 where

 import Crypto.Hash(Digest,SHA224(..),SHA256(..),SHA384(..),SHA512(..),hash)
 import Crypto.Number.Generate(generateBetween)
-import Crypto.Random(MonadRandom)
+import "cryptonite" Crypto.Random(MonadRandom)
 import qualified Data.ByteArray as B
 import qualified Data.ByteString as S
 import Math(showX)