snaplet-customauth 0.2 → 0.2.1
raw patch · 2 files changed
+3/−4 lines, 2 files
Files
Snap/Snaplet/CustomAuth/User.hs view
@@ -31,9 +31,8 @@ name <> "=" <> session udata <> (maybe "" (("; Max-Age=" <>) . toStrict . Text.Show.ByteString.show @Int . floor) lifetime) <> "; Path=/" <>- (if secure then "; Secure" else "") <>- "; HttpOnly" <>- "; SameSite=Lax"+ (if secure then "; Secure; SameSite=None" else "") <>+ "; HttpOnly" modify $ \mgr -> mgr { activeUser = Just usr } currentUser :: UserData u => Handler b (AuthManager u e b) (Maybe u)
snaplet-customauth.cabal view
@@ -1,5 +1,5 @@ Name: snaplet-customauth-Version: 0.2+Version: 0.2.1 Synopsis: Alternate authentication snaplet Description: More customizable authentication snaplet with OAuth2 support License: BSD3