servant-auth-cookie 0.5.0 → 0.5.0.1
raw patch · 3 files changed
+9/−3 lines, 3 files
Files
- CHANGELOG.md +6/−1
- servant-auth-cookie.cabal +2/−1
- src/Servant/Server/Experimental/Auth/Cookie.hs +1/−1
CHANGELOG.md view
@@ -2,6 +2,10 @@ ## [HEAD] +## [0.5.0.1] - 2017-04-16+### Changed+- Fixed incompatibility with older versions of GHC.+ ## [0.5.0] - 2017-04-15 ### Changed - Server keys management:@@ -101,7 +105,8 @@ - Initial version of the package. -[HEAD]: ../../compare/v0.5.0...HEAD+[HEAD]: ../../compare/v0.5.0.1...HEAD+[0.5.0]: ../../compare/v0.5.0...v0.5.0.1 [0.5.0]: ../../compare/v0.4.4...v0.5.0 [0.4.4]: ../../compare/v0.4.3.3...v0.4.4 [0.4.3.3]: ../../compare/v0.4.3.2...v0.4.3.3
servant-auth-cookie.cabal view
@@ -1,5 +1,5 @@ name: servant-auth-cookie-version: 0.5.0+version: 0.5.0.1 synopsis: Authentication via encrypted cookies description: Authentication via encrypted client-side cookies, inspired by client-session library by Michael Snoyman and based on@@ -37,6 +37,7 @@ flag build-examples description: Build example executables.+ manual: True default: False
src/Servant/Server/Experimental/Auth/Cookie.hs view
@@ -466,7 +466,7 @@ (currentKey, rotatedKeys) <- getKeys sks (serverKey, renew) <- if checkMac currentKey then return (currentKey, False)- else (,True) <$> maybe+ else liftM (,True) $ maybe (throwM $ IncorrectMAC mac) (return) (listToMaybe . map fst . filter snd . map (id &&& checkMac) $ rotatedKeys)