diff options
author | Tom Smeding <tom@tomsmeding.com> | 2024-07-07 18:12:09 +0200 |
---|---|---|
committer | Tom Smeding <tom@tomsmeding.com> | 2024-07-07 18:12:27 +0200 |
commit | 4bd0ea1136ca61a12e5079baca7f7129ca89d133 (patch) | |
tree | 8411c5108c901a14ff932fe62b887e03cce75149 /process-database.hs | |
parent | 63d048a4d891ac850a352fd3e9b345f778f5fdd7 (diff) |
These are conspicuously absent from the word list
Diffstat (limited to 'process-database.hs')
-rwxr-xr-x | process-database.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/process-database.hs b/process-database.hs index bfbd4b7..a9eb97c 100755 --- a/process-database.hs +++ b/process-database.hs @@ -152,12 +152,16 @@ main :: IO () main = do (csvfname, outfname) <- getArgs >>= \case [csvfname, outfname] -> return (csvfname, outfname) - _ -> die "Usage: process-database <database.csv> <output.bin>" + _ -> die "Usage: process-database <database.csv> <output.bin>\n\ + \Additionally reads <database-extra.csv> and <table.txt>." (hira2kata, kata2id, nIDs) <- readTable <$> readFile "table.txt" let any2id = Map.map (kata2id Map.!) hira2kata <> kata2id - rows <- concatMap (normalise any2id) . tail . readCSV <$> readFile csvfname + rows <- do + rows1 <- tail . readCSV <$> readFile csvfname + rows2 <- tail . readCSV <$> readFile "database-extra.csv" + return (concatMap (normalise any2id) (rows1 ++ rows2)) let trie = makeTrie 0 rows -- print trie |