diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-18 23:53:35 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-18 23:53:35 +0000 |
commit | 740abe29157f9afbfc1b83cf29945960dfe4fd6b (patch) | |
tree | a8eaa02991be144abfa82c50329f409f52897e4d /src | |
parent | af365f6c6eb27f8e3680afca52aa70550e992f6f (diff) | |
download | sariulclocks-740abe29157f9afbfc1b83cf29945960dfe4fd6b.tar.gz |
fix: cookie paths
Diffstat (limited to 'src')
-rw-r--r-- | src/Types/Session.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Types/Session.hs b/src/Types/Session.hs index 5d037a4..210cd28 100644 --- a/src/Types/Session.hs +++ b/src/Types/Session.hs @@ -26,7 +26,7 @@ makeClassCookie now session = Nothing -> "Nothing" , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} makeClockCookie :: ClockTime -> Session -> Cookie @@ -38,7 +38,7 @@ makeClockCookie now session = CountUpClock -> "1" , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} makeSsCookie :: ClockTime -> Session -> Cookie @@ -50,7 +50,8 @@ makeSsCookie now session = Just c -> show $ numberOfSs c , cookieExpires = Just $ endOfSchoolDay now , cookieDomain = Nothing - , cookiePath = Nothing +-- make the cookie path not absolute + , cookiePath = Just "/sariul/cgi-bin" , cookieSecure = False} endOfSchoolDay :: ClockTime -> CalendarTime |