skein 0.1.0.7 → 0.1.0.8

raw patch · 2 files changed

+7/−17 lines, 2 filesdep −transformersdep ~crypto-apidep ~hspecdep ~taggedPVP ok

version bump matches the API change (PVP)

Dependencies removed: transformers

Dependency ranges changed: crypto-api, hspec, tagged

API changes (from Hackage documentation)

Files

• skein.cabal +4/−5
• tests/runtests.hs +3/−12

@@ -1,6 +1,6 @@ Cabal-version:       >= 1.8 Name:                skein-Version:             0.1.0.7+Version:             0.1.0.8 Synopsis:            Skein, a family of cryptographic hash functions.  Includes Skein-MAC as well. License:             BSD3 License-file:        LICENSE@@ -122,12 +122,11 @@         base         >= 3   && < 5,         bytestring   >= 0.9 && < 0.10,         cereal       >= 0.3 && < 0.4,-        tagged       >= 0.2 && < 0.3,-        crypto-api   >= 0.6 && < 0.10,+        tagged       >= 0.2 && < 0.5,+        crypto-api   >= 0.6 && < 0.11,          filepath     == 1.*,-        transformers,-        hspec        == 0.9.*,+        hspec        == 1.3.*,          -- finally, our own package         skein

@@ -9,9 +9,6 @@ import qualified Data.ByteString as B --import qualified Data.ByteString.Lazy as L --- from cereal-import Data.Serialize (encode)- -- from tagged import Data.Tagged (Tagged(..)) @@ -22,14 +19,8 @@ -- from filepath import System.FilePath ((</>)) --- from transformers-import Control.Monad.Trans.Writer.Lazy (Writer)- -- from hspec-import Test.Hspec.Monadic---import Test.Hspec.QuickCheck-import Test.Hspec.HUnit ()-+import Test.Hspec  -- from this package import Paths_skein (getDataFileName)@@ -43,7 +34,7 @@   skein_golden_kat_txt <- getDataFileName ("tests" </> "skein_golden_kat.txt")   kats <- parseKats <$> readFile skein_golden_kat_txt   putStrLn $ "Parsed " ++ show (length kats) ++ " known answer tests"-  hspecX $ do+  hspec $ do          describe "Skein golden known answer tests" $ do            skeinKats kats (undefined :: Skein_512_512)            skeinKats kats (undefined :: Skein_1024_1024)@@ -140,7 +131,7 @@ ----------------------------------------------------------------------  skeinKats :: (SkeinMAC skeinCtx, Hash skeinCtx digest) =>-             [Kat] -> digest -> Writer [Spec] ()+             [Kat] -> digest -> Spec skeinKats kats digest =   let get t@(Tagged x) = x           where