From 6e8c2b8df3898d0f50463f3151831f5d7c9306a2 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 2 Aug 2026 20:19:10 +0100
Subject: Index logs in parallel

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

(limited to 'src/Index.hs')

diff --git a/src/Index.hs b/src/Index.hs
index 81eb5f2..ee3cdaf 100644
--- a/src/Index.hs
+++ b/src/Index.hs
@@ -56,6 +56,7 @@ import Cache
 import Config (Channel(..), prettyChannel)
 import ImmutGrowVector qualified as IGV
 import Mmap
+import Parallel
 import Util
 import ZNC.Parser
 
@@ -151,7 +152,7 @@ initIndex basedir toimport = do
       let nw = T.unpack nwT
           ch = T.unpack chT
       files <- listDirectory (basedir </> nw </> ch)
-      days <- fmap sort . forM (sort files) $ \fn -> do
+      days <- fmap sort . parallelForM (sort files) $ \fn -> do
         -- atomicPrintS $ " -> " ++ fn
         let path = basedir </> nw </> ch </> fn
             date = case parseFileName fn of
-- 
cgit v1.3.1