hashirama/waza-hs
hashirama/waza-hs
Watch
1
0
Fork
You've already forked waza-hs
 0
Code Issues Pull requests Projects Releases Wiki Activity Actions

Update src/getDictionaries.hs

Browse source
This commit is contained in:
千住柱間 2025-05-29 04:59:50 +00:00
commit 40bb31e9a8
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/getDictionaries.hs
View file

@ -22,11 +22,9 @@ import Data.Maybe (fromMaybe)
import Control.Monad (when, filterM)
import Data.List (sort)
-- needs a dedup
type MdxIndex = HM.HashMap String (FilePath, [FilePath])
main :: IO ()
main = do
hSetEncoding stdout utf8
@ -38,7 +36,6 @@ main = do
TIO.putStrLn $ "Folder: " <> T.pack (encodeString folder)
mapM_ (TIO.putStrLn . (" " <>) . T.pack . encodeString) (sort files)
mapM_ (TIO.putStrLn . (" " <>) . T.pack . encodeString) (sort files)
TIO.putStrLn ""
pipeline :: forall m. (MonadSafe m, MonadState MdxIndex m, MonadFail m) => Effect m ()