Some optimisation of indexing

1 files changed, 3 insertions, 3 deletions

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]