diff options
| -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] |