Permalink
Browse files

Fix some deprecation warnings

  • Loading branch information...
1 parent 7c3d263 commit c02e39e3f49280c4d34e16def7daf0fea38332ca @sol sol committed Sep 15, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −3 tests/runtests.hs
View
@@ -54,7 +54,7 @@ import Crypto.Conduit
main :: IO ()
-main = hspecX $ do
+main = hspec $ do
describe "cryptohash's MD2" $ testHash (undefined :: MD2)
describe "cryptohash's MD4" $ testHash (undefined :: MD4)
describe "cryptohash's MD5" $ testHash (undefined :: MD5)
@@ -88,7 +88,7 @@ main = hspecX $ do
----------------------------------------------------------------------
-testHash :: C.Hash ctx d => d -> Specs
+testHash :: C.Hash ctx d => d -> Spec
testHash d = do
prop "works with sinkHash" $
\str -> prop_sinkHash d (L.pack str)
@@ -113,7 +113,7 @@ prop_sinkHmac d mackey input =
----------------------------------------------------------------------
-testBlockCipher :: C.BlockCipher k => k -> Specs
+testBlockCipher :: C.BlockCipher k => k -> Spec
testBlockCipher undefinedKey = do
let Just k =
let len = (C.keyLength .::. k) `div` 8

0 comments on commit c02e39e

Please sign in to comment.