diff options
| author | aarne <aarne@chalmers.se> | 2014-12-06 08:39:25 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2014-12-06 08:39:25 +0000 |
| commit | 82a7e22d2e19a131d996c3146d4edb52027425f7 (patch) | |
| tree | c19832eae4800d1e762e28b31c8e30d51a558303 /examples/app | |
| parent | 52d38392715cf05fc626d7ff1454c2acf0d8b20c (diff) | |
MissApp.hs: a function for preparing a list of lin rules for missing words
Diffstat (limited to 'examples/app')
| -rw-r--r-- | examples/app/MissApp.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/app/MissApp.hs b/examples/app/MissApp.hs index 2341f06f9..c5faa41ff 100644 --- a/examples/app/MissApp.hs +++ b/examples/app/MissApp.hs @@ -48,3 +48,7 @@ parts f = words (map (\c -> if c =='_' then ' ' else c) f) catOf :: Fun -> String catOf = last . parts + +prepareMissing :: MissMap -> Lang -> String -> IO () +prepareMissing mm lang cat = putStrLn $ unlines + [ "lin " ++ p ++ " = mk" ++ cat ++ " \"\" ;"| (l,ps) <- allMissingSuchFuns mm (\f -> catOf f == cat), l == lang, p <- ps] |