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.

1 files changed, 2 insertions, 1 deletions

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