Update fileStream.hs

2025-05-29 03:20:05 +00:00 · 2025-05-29 03:20:05 +00:00 · 0cead8c5d5
commit 0cead8c5d5
parent 75c3288c98
1 changed files with 2 additions and 1 deletions
--- a/fileStream.hs
+++ b/fileStream.hs
@ -21,6 +21,7 @@ main :: IO ()
 main = do
    hSetEncoding stdout utf8
    runSafeT $ runEffect $
-        for (every (descendentOf "/mnt/Data/Japanese_Resources/")) $ \fp ->
+        -- do a favor to yourself and please point to where the dictionaries actually are.
+        for (every (descendentOf "/mnt/Data/Japanese_Resources/Dictionaries/")) $ \fp ->
            when (extension fp == Just "mdx") $
                liftIO $ TIO.putStrLn $ T.pack $ encodeString fp