blob: ca68697c52aa30c244ca7f741fde4ecb5e98eeff (
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
|
concrete GreetingsJpn of Greetings = SentencesJpn [Greeting,mkGreeting] ** open Prelude in {
flags coding = utf8 ;
lin
GBye = mkGreeting "バイ" ;
GCheers = mkGreeting "かんぱい" ;
GDamn = mkGreeting "くそ" ;
GExcuse, GExcusePol = mkGreeting "すみません" ;
GGoodDay, GHello = mkGreeting "こんにちは" ; ----
GGoodEvening = mkGreeting "こんばんは" ;
GGoodMorning = mkGreeting "おはようございます" ;
GGoodNight = mkGreeting "おやすみなさい" ;
GGoodbye = mkGreeting "さようなら" ;
GHelp = mkGreeting "助けて" ;
GHowAreYou = mkGreeting "お元気ですか" ;
GLookOut = mkGreeting "危ない" ;
GNiceToMeetYou = mkGreeting "初めまして" ;
GPleaseGive = mkGreeting "ください" ;
GPleaseGivePol = mkGreeting "お願いします" ;
GSeeYouSoon = mkGreeting "またね" ;
GSorry = mkGreeting "ごめんなさい" ;
GSorryPol = mkGreeting "申し訳ありません" ;
GThanks = mkGreeting "ありがとう" ;
GTheCheck = mkGreeting "会計" ;
GCongratulations = mkGreeting "お目出度うご座います";
GHappyBirthday = mkGreeting "お誕生日おめでとうございます" ;
GGoodLuck = mkGreeting "がんばってください" ;
GWhatTime = mkGreeting "今何時ですか" ;
}
|
