From 82a7e22d2e19a131d996c3146d4edb52027425f7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sat, 6 Dec 2014 08:39:25 +0000
Subject: [PATCH] MissApp.hs: a function for preparing a list of lin rules for
 missing words

---
 examples/app/MissApp.hs | 4 ++++
 1 file changed, 4 insertions(+)

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]