slight refactoring of Phrasebook, with less start words

This commit is contained in:
aarne
2010-12-07 12:32:57 +00:00
parent e1c7cddc6c
commit e4b330b8cc
34 changed files with 398 additions and 447 deletions

View File

@@ -1,32 +1,29 @@
concrete GreetingsFre of Greetings = open Prelude in {
lincat
Greeting = SS ;
concrete GreetingsFre of Greetings = SentencesFre [Greeting,mkGreeting] ** open Prelude in {
lin
GBye = ss "au revoir" ;
GCheers = ss "santé" ;
GDamn = ss "maudit" ;
GExcuse = ss "excuse-moi" ;
GExcusePol = ss "excusez-moi" ;
GGoodDay = ss "bonjour" ;
GGoodEvening = ss "bon soir" ;
GGoodMorning = ss "bonjour" ;
GGoodNight = ss "bonne nuit" ;
GGoodbye = ss "au revoir" ;
GHello = ss "salut" ;
GHelp = ss "au secours" ;
GHowAreYou = ss "comment ça va" ;
GLookOut = ss "attention" ;
GNiceToMeetYou = ss "enchanté" ;
GPleaseGive = ss "s'il te plaît" ;
GPleaseGivePol = ss "s'il vous plaît" ;
GSeeYouSoon = ss "à bientôt" ;
GSorry, GSorryPol = ss "pardon" ;
GThanks = ss "merci" ;
GTheCheck = ss "l'addition" ;
GCongratulations = ss "félicitations";
GHappyBirthday = ss "joyeux anniversaire" ;
GGoodLuck = ss "bonne chance" ;
GBye = mkGreeting "au revoir" ;
GCheers = mkGreeting "santé" ;
GDamn = mkGreeting "maudit" ;
GExcuse = mkGreeting "excuse-moi" ;
GExcusePol = mkGreeting "excusez-moi" ;
GGoodDay = mkGreeting "bonjour" ;
GGoodEvening = mkGreeting "bon soir" ;
GGoodMorning = mkGreeting "bonjour" ;
GGoodNight = mkGreeting "bonne nuit" ;
GGoodbye = mkGreeting "au revoir" ;
GHello = mkGreeting "salut" ;
GHelp = mkGreeting "au secours" ;
GHowAreYou = mkGreeting "comment ça va" ;
GLookOut = mkGreeting "attention" ;
GNiceToMeetYou = mkGreeting "enchanté" ;
GPleaseGive = mkGreeting "s'il te plaît" ;
GPleaseGivePol = mkGreeting "s'il vous plaît" ;
GSeeYouSoon = mkGreeting "à bientôt" ;
GSorry, GSorryPol = mkGreeting "pardon" ;
GThanks = mkGreeting "merci" ;
GTheCheck = mkGreeting "l'addition" ;
GCongratulations = mkGreeting "félicitations";
GHappyBirthday = mkGreeting "joyeux anniversaire" ;
GGoodLuck = mkGreeting "bonne chance" ;
}