forked from GitHub/gf-core
using partitive plural in Finnish mkN
This commit is contained in:
@@ -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 ++ "\" ;"
|
||||
|
||||
Reference in New Issue
Block a user