diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2026-08-09 21:13:21 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2026-08-09 21:13:21 +0200 |
| commit | 914e63f6bb46c3ff132c5f642cffcb72485551e0 (patch) | |
| tree | 954c5d646efdae3772584d70da1552b28bf068b5 /src/Pages.hs | |
| parent | a70b0207990d1b93d6d267b020d7b0ff881d22d5 (diff) | |
Serve plain ZNC log files too
Diffstat (limited to 'src/Pages.hs')
| -rw-r--r-- | src/Pages.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/Pages.hs b/src/Pages.hs index 9b65de2..dbbf440 100644 --- a/src/Pages.hs +++ b/src/Pages.hs @@ -69,6 +69,17 @@ data LogData = LogData , events :: [EventData () Text] } +data PlainLogData = PlainLogData + { network :: Text + , channel :: Text + , alias :: Text + , note :: Maybe Text + , entries :: [PlainLogDayData] } + +data PlainLogDayData = PlainLogDayData + { exists :: Bool + , date :: Text } + data CalendarDayData = CalendarDayData { network :: Text , channel :: Text @@ -144,6 +155,7 @@ $(do let dropSuffix suf str = makeRender tpl' dataname concat <$> mapM (uncurry makeDecs) [("log", ''LogData) + ,("plainlog", ''PlainLogData) ,("calendar-day", ''CalendarDayData) ,("index", ''IndexData) ,("calendar", ''CalendarData)]) |