skein 0.1.0.10 → 0.1.0.11
raw patch · 2 files changed
+6/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- skein.cabal +1/−1
- src/Crypto/Skein.hs +5/−4
skein.cabal view
@@ -1,6 +1,6 @@ Cabal-version: >= 1.8 Name: skein-Version: 0.1.0.10+Version: 0.1.0.11 Synopsis: Skein, a family of cryptographic hash functions. Includes Skein-MAC as well. License: BSD3 License-file: LICENSE
src/Crypto/Skein.hs view
@@ -90,6 +90,7 @@ import Control.Monad (unless) import Foreign import Foreign.C+import qualified System.IO.Unsafe as U -- from bytestring import qualified Data.ByteString as B@@ -396,7 +397,7 @@ -> (internalCtx -> externalCtx) -> externalCtx initialCtxSkein bits init_ mkCtx =- unsafePerformIO $+ U.unsafePerformIO $ alloca $ \ctx_ptr -> do check $ init_ ctx_ptr bits fmap mkCtx $ peek ctx_ptr@@ -408,7 +409,7 @@ -> (internalCtx -> externalCtx) -> (externalCtx -> B.ByteString -> externalCtx) updateCtxSkein update unCtx mkCtx = \ctx bs ->- unsafePerformIO $+ U.unsafePerformIO $ BU.unsafeUseAsCStringLen bs $ \(bs_ptr, bs_len) -> with (unCtx ctx) $ \ctx_ptr -> do check $ update ctx_ptr (castPtr bs_ptr) (fromIntegral bs_len)@@ -423,7 +424,7 @@ -> (B.ByteString -> hash) -> (externalCtx -> B.ByteString -> hash) finalizeSkein hashLenBytes update final unCtx mkHash = \ctx bs ->- unsafePerformIO $+ U.unsafePerformIO $ with (unCtx ctx) $ \ctx_ptr -> do unless (B.null bs) $ BU.unsafeUseAsCStringLen bs $ \(bs_ptr, bs_len) ->@@ -437,7 +438,7 @@ -> (internalCtx -> externalCtx) -> (Key -> externalCtx) skeinMACCtxSkein bits initExt mkCtx = \key ->- unsafePerformIO $+ U.unsafePerformIO $ BU.unsafeUseAsCStringLen key $ \(key_ptr, key_len) -> alloca $ \ctx_ptr -> do check $ initExt ctx_ptr bits sKEIN_SEQUENTIAL (castPtr key_ptr) (fromIntegral key_len)