diff options
Diffstat (limited to 'src')
| -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 |