From 822ada35ab5ffc33f9a34f2ff13fed5fb649b5b7 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Sun, 26 Jul 2026 20:48:00 +0100
Subject: Commented-out debugging code

I'll leave the sort in, it's hardly the bottleneck and it makes
debugging issues easier and benchmarks more predictable.
---
 src/Index.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Index.hs b/src/Index.hs
index d9a1379..b82d095 100644
--- a/src/Index.hs
+++ b/src/Index.hs
@@ -151,7 +151,8 @@ initIndex basedir toimport = do
       let nw = T.unpack nwT
           ch = T.unpack chT
       files <- listDirectory (basedir </> nw </> ch)
-      days <- fmap sort . forM files $ \fn -> do
+      days <- fmap sort . forM (sort files) $ \fn -> do
+        -- atomicPrintS $ " -> " ++ fn
         let path = basedir </> nw </> ch </> fn
             date = case parseFileName fn of
                      Just ymd -> ymdToGregorian ymd
-- 
cgit v1.3.1