From 914e63f6bb46c3ff132c5f642cffcb72485551e0 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 9 Aug 2026 20:13:21 +0100
Subject: Serve plain ZNC log files too

---
 src/Pages.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Pages.hs')

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)])
-- 
cgit v1.3.1