prepositional verbs bootstrapped for DictionaryFin

lib/src/translator/CheckDict.hs

@@ -2,7 +2,7 @@ import qualified Data.Map
 import qualified Data.Set
 import Data.List
 
-langs = words "Bul Chi Dut Eng Fin Fre Ger Hin Ita Spa Swe"
+langs = words "Bul Cat Chi Dut Eng Fin Fre Ger Hin Ita Spa Swe"
 
 -- apply a function to every line, changing it to a list 
 changeLinesLang :: (String -> [String]) -> String -> IO ()

lib/src/translator/PrepVerb.hs

@@ -31,7 +31,7 @@ advV s = "advV " ++ s
 v2V v = "(lin V " ++ v ++ "_V2) "
 
 
-getPrepsAdvs lang = do
+mkPrepVerbDict lang = do
   rs <- readFile ("Dictionary" ++ lang ++ ".gf") >>= return . lines
   let dict = M.fromList [(f,unwords r) | "lin":f:"=":r <- map words rs]
   let look x = maybe ("","variants {} ;") (\r -> ("--DD ",r)) (M.lookup x dict)