From 5c241aa67a927a1b1755c6691821421b742b141a Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 2 Aug 2026 19:56:48 +0100
Subject: Some optimisation of indexing

---
 src/Index.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Index.hs')

diff --git a/src/Index.hs b/src/Index.hs
index b82d095..81eb5f2 100644
--- a/src/Index.hs
+++ b/src/Index.hs
@@ -158,9 +158,9 @@ initIndex basedir toimport = do
                      Just ymd -> ymdToGregorian ymd
                      Nothing -> error $ "Log file with unexpected file name: " ++ path
         -- atomicPrintS $ "Parsing " ++ path ++ " (" ++ show date ++ " -> " ++ show (dateToDay date) ++ ")"
-        events <- parseLog <$> BS.readFile path
-        let !nevents = length events
-            !ccpr = countCompressed (map snd events)
+        rawEvents <- parseLogRaw <$> BS.readFile path
+        let !nevents = rawNumEvents rawEvents
+            !ccpr = countCompressed (map snd (realiseEvents rawEvents))
         return (uncurry3 fromGregorian date, nevents, ccpr)
       let minday = minimum [day | (day, _, _) <- days]
           maxday = maximum [day | (day, _, _) <- days]
-- 
cgit v1.3.1