diff options
Diffstat (limited to 'src/Types/Session.hs')
-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 |