diff options
| -rw-r--r-- | src/Index.hs | 3 |
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 |