From 5d5ce0e97107619b8e33c76585d7629f106ad3c8 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 1 Jul 2019 23:16:32 -0400
Subject: New debugging option: --trace-verify

---
 testkiki/testkiki.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'testkiki/testkiki.hs')

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
-- 
cgit v1.2.3