blob: 71faf5c66bb1b5c94c5bbf93179400bb9c31124a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
--# -coding=latin1
concrete GreetingsFre of Greetings = SentencesFre [Greeting,mkGreeting] ** open Prelude in {
lin
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" ;
GWhatTime = mkGreeting "quelle heure est-il" ;
}
|
