using partitive plural in Finnish mkN

This commit is contained in:
aarne committed 2008-02-18 07:15:50 +00:00
1 parent 8873196f84
commit badafa58fa
4 files changed
+230 -31

No files matched your search

+2 -1
View File
@@ -77,7 +77,8 @@ mkLex "V" _ line = case words line of
_ -> return ()
mkLex "N" 2 line = case words line of
num:sana:sanan:_ -> do
-- num:sana:sanan:_ -> do
num:sana:_:_:_:_:_:sanan:_ -> do
let nimi = "n" ++ init num ++ "_" ++ sana
putStrLn $ "lin " ++ nimi ++
"_N = mkN \"" ++ sana ++ "\" \"" ++ sanan ++ "\" ;"