From f59656bc98e58adda4d6eb3f7b3f69921b69433f Mon Sep 17 00:00:00 2001 From: Felipe Lessa Date: Mon, 25 May 2015 18:57:04 -0300 Subject: [PATCH] Make setAuthKey more easily composable. --- serversession/src/Web/ServerSession/Core/Internal.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/serversession/src/Web/ServerSession/Core/Internal.hs b/serversession/src/Web/ServerSession/Core/Internal.hs index 2116c5b..70c62a2 100644 --- a/serversession/src/Web/ServerSession/Core/Internal.hs +++ b/serversession/src/Web/ServerSession/Core/Internal.hs @@ -201,9 +201,9 @@ setCookieName val state = state { cookieName = val } -- | Set the name of the session variable that keeps track of the --- logged user. Defaults to \"_ID\". -setAuthKey :: State s -> Text -> State s -setAuthKey state val = state { authKey = val } +-- logged user. Defaults to \"_ID\" (used by @yesod-auth@). +setAuthKey :: Text -> State s -> State s +setAuthKey val state = state { authKey = val } -- | Load the session map from the storage backend. The value of