Index logs in parallel

1 files changed, 2 insertions, 1 deletions

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