diff options
Diffstat (limited to 'testkiki')
-rw-r--r-- | testkiki/testkiki.hs | 12 |
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 | |||
24 | import Data.Time.Clock | 24 | import Data.Time.Clock |
25 | import Data.Time.Clock.POSIX | 25 | import Data.Time.Clock.POSIX |
26 | import Data.IORef | 26 | import Data.IORef |
27 | #if !defined(VERSION_cryptonite) | ||
27 | import Crypto.Hash.SHA1 (hash) | 28 | import Crypto.Hash.SHA1 (hash) |
29 | #else | ||
30 | import qualified Crypto.Hash | ||
31 | import Crypto.Hash.Algorithms | ||
32 | import Data.ByteArray (convert) | ||
33 | #endif | ||
28 | import System.IO.Unsafe (unsafePerformIO) | 34 | import System.IO.Unsafe (unsafePerformIO) |
29 | import ProcessUtils | 35 | import ProcessUtils |
30 | import Data.Bool | 36 | import Data.Bool |
31 | import Data.Char | 37 | import Data.Char |
32 | import KeyRing | 38 | import KeyRing hiding (try) |
39 | |||
40 | #if defined(VERSION_cryptonite) | ||
41 | hash x = convert (Crypto.Hash.hash x :: Crypto.Hash.Digest SHA1) :: B.ByteString | ||
42 | #endif | ||
33 | 43 | ||
34 | #if !MIN_VERSION_base(4,7,0) | 44 | #if !MIN_VERSION_base(4,7,0) |
35 | setEnv k v = System.Posix.Env.setEnv k v True | 45 | setEnv k v = System.Posix.Env.setEnv k v True |