clientsession 0.9.0.1 → 0.9.0.2

raw patch · 2 files changed

+5/−9 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• clientsession.cabal +1/−1
• src/Web/ClientSession.hs +4/−8

@@ -1,5 +1,5 @@ name:            clientsession-version:         0.9.0.1+version:         0.9.0.2 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>, Felipe Lessa <felipe.lessa@gmail.com>

@@ -130,18 +130,10 @@ newtype IV = IV S.ByteString  unsafeMkIV :: S.ByteString -> IV-#if MIN_VERSION_cipher_aes(0, 2, 0) unsafeMkIV bs = (IV bs)-#else-unsafeMkIV bs = (IV (A.IV bs))-#endif  unIV :: IV -> S.ByteString-#if MIN_VERSION_cipher_aes(0, 2, 0) unIV (IV bs) = bs-#else-unIV (IV (A.IV bs)) = bs-#endif  instance Eq IV where   (==) = (==) `on` unIV@@ -237,7 +229,11 @@                         -- the client browser. encrypt key (IV iv) x = B.encode final   where+#if MIN_VERSION_cipher_aes(0, 2, 0)     encrypted  = A.encryptCTR (aesKey key) iv x+#else+    encrypted  = A.encryptCTR (aesKey key) (A.IV iv) x+#endif     toBeAuthed = iv `S.append` encrypted     auth       = macKey key toBeAuthed     final      = encode auth `S.append` toBeAuthed