diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-06-28 20:03:43 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-06-28 20:03:43 +0200 |
| commit | c96197768cb830e103764843b1f4f00013e349ab (patch) | |
| tree | 50209f2ad17fc14970752b505e1ed893f80c61b7 | |
| parent | af5e17705a0a8e54415aa7425cc6e374785bebb9 (diff) | |
Set ef cookie on Path=/
| -rw-r--r-- | src/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index d3abecc..cb4e1fb 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -66,8 +66,8 @@ pageLog conf index req alias = Just chan -> do let (kind, kindCookie) = case query req "ef" <|> cookie req "ef" of -- event filter - Just "all" -> (CKAll, Just "ef=all") - Just "compr" -> (CKCompressed, Just "ef=compr") + Just "all" -> (CKAll, Just "ef=all; Path=/") + Just "compr" -> (CKCompressed, Just "ef=compr; Path=/") _ -> (CKAll, Nothing) numEvents <- indexNumEvents index chan kind let npages = (numEvents + numPerPage - 1) `div` numPerPage |