diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-01-06 21:05:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-01-06 21:05:56 +0000 |
| commit | fc65b10e0f689a51f2f856b43abfb6d266889a9b (patch) | |
| tree | 453717608eb8bd04e47424b9a779efc5978a8aec /examples/uusisuomi/MkLex.hs | |
| parent | 330350325f79f8a229abe3ed460c814464d574e7 (diff) | |
dictionary experiment with Finnish verbs
Diffstat (limited to 'examples/uusisuomi/MkLex.hs')
| -rw-r--r-- | examples/uusisuomi/MkLex.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/uusisuomi/MkLex.hs b/examples/uusisuomi/MkLex.hs index faf980d75..9d6525aee 100644 --- a/examples/uusisuomi/MkLex.hs +++ b/examples/uusisuomi/MkLex.hs @@ -57,7 +57,7 @@ mkLex "V" _ line = case words line of num:sana:_:_:_:_:_:_:sanan:_ -> do let nimi = "n" ++ init num ++ "_" ++ sana putStrLn $ "lin " ++ nimi ++ - "_V = mk2V <\"" ++ sana ++ "\", \"" ++ sanan ++ "\"> ;" + "_V = mkV \"" ++ sana ++ "\" \"" ++ sanan ++ "\" ;" _ -> return () mkLex "N" 2 line = case words line of |