automotive-cse 0.1.5.0 → 0.1.6.0
raw patch · 2 files changed
+8/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Codec.Automotive.CSE.Internal: makeKeyAuthUse' :: MonadPlus m => ShortByteString -> m (KeyAuthUse k)
Files
automotive-cse.cabal view
@@ -1,6 +1,6 @@ name: automotive-cse-version: 0.1.5.0+version: 0.1.6.0 synopsis: Automotive CSE emulation description: This package includes Cryptography Security Engine (CSE) codec emulation for automotive things.
src/Codec/Automotive/CSE/Internal.hs view
@@ -20,7 +20,7 @@ DerivedCipher, derivedCipher, KeyAuthUse, Auth, NotAuth,- makeKeyAuthUse, unKeyAuthUse,+ makeKeyAuthUse', makeKeyAuthUse, unKeyAuthUse, UpdateC, Enc, Mac, @@ -93,10 +93,13 @@ KeyAuthUse ShortByteString deriving Eq +makeKeyAuthUse' :: MonadPlus m => ShortByteString -> m (KeyAuthUse k)+makeKeyAuthUse' k = do+ guard $ Short.length k == 16+ return $ KeyAuthUse k+ makeKeyAuthUse :: MonadPlus m => ByteString -> m (KeyAuthUse k)-makeKeyAuthUse k = do- guard $ BS.length k == 16- return . KeyAuthUse $ Short.toShort k+makeKeyAuthUse = makeKeyAuthUse' . Short.toShort unKeyAuthUse :: KeyAuthUse k -> ByteString unKeyAuthUse (KeyAuthUse bs) = Short.fromShort bs