diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-02-18 07:15:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-02-18 07:15:50 +0000 |
| commit | badafa58fa7d21c2d8a058596a913403c6096111 (patch) | |
| tree | 8c83083dfa35e10f7eb4bee0a673f0200ae60150 /examples/uusisuomi/MkLex.hs | |
| parent | 8873196f8471574a2be098b8e84c6f78318a76ff (diff) | |
using partitive plural in Finnish mkN
Diffstat (limited to 'examples/uusisuomi/MkLex.hs')
| -rw-r--r-- | examples/uusisuomi/MkLex.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/uusisuomi/MkLex.hs b/examples/uusisuomi/MkLex.hs index d10e75427..0e63a5e62 100644 --- a/examples/uusisuomi/MkLex.hs +++ b/examples/uusisuomi/MkLex.hs @@ -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 ++ "\" ;" |