New debugging option: --trace-verify

1 files changed, 11 insertions, 1 deletions

diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs
index d588336..10487cf 100644
--- a/testkiki/testkiki.hs
+++ b/testkiki/testkiki.hs
@@ -24,12 +24,22 @@ import qualified Data.ByteString.Char8 as B
 import Data.Time.Clock
 import Data.Time.Clock.POSIX
 import Data.IORef
+#if !defined(VERSION_cryptonite)
 import Crypto.Hash.SHA1 (hash)
+#else
+import qualified Crypto.Hash
+import Crypto.Hash.Algorithms
+import Data.ByteArray (convert)
+#endif
 import System.IO.Unsafe (unsafePerformIO)
 import ProcessUtils
 import Data.Bool
 import Data.Char
-import KeyRing
+import KeyRing hiding (try)
+
+#if defined(VERSION_cryptonite)
+hash x = convert (Crypto.Hash.hash x :: Crypto.Hash.Digest SHA1) :: B.ByteString
+#endif
 
 #if !MIN_VERSION_base(4,7,0)
 setEnv k v = System.Posix.Env.setEnv k v True