forked from GitHub/gf-core
28 lines
1.0 KiB
Plaintext
28 lines
1.0 KiB
Plaintext
concrete GreetingsPol of Greetings = SentencesPol [Greeting,mkGreeting] ** open Prelude in {
|
|
|
|
flags
|
|
optimize =values ; coding =utf8 ;
|
|
|
|
lin
|
|
GBye = mkGreeting "cześć" ;
|
|
GCheers = mkGreeting "na zdrowie" ;
|
|
GDamn = mkGreeting "cholera" ; -- not polite
|
|
GExcuse, GExcusePol, GSorry, GSorryPol = mkGreeting "przepraszam" ;
|
|
GGoodDay, GGoodMorning = mkGreeting "dzień dobry" ;
|
|
GGoodEvening = mkGreeting "dobry wieczór" ;
|
|
GGoodNight = mkGreeting "dobranoc" ;
|
|
GGoodbye = mkGreeting "do widzenia" ;
|
|
GHello = mkGreeting "cześć" ;
|
|
GHelp = mkGreeting "pomocy" ;
|
|
GHowAreYou = mkGreeting "jak się masz" ;
|
|
GLookOut = mkGreeting "uwaga" ;
|
|
GNiceToMeetYou = mkGreeting "miło mi" ;
|
|
GPleaseGive, GPleaseGivePol = mkGreeting "poproszę" ;
|
|
GSeeYouSoon = mkGreeting "do zobaczenia" ;
|
|
GThanks = mkGreeting "dziękuję" ;
|
|
GTheCheck = mkGreeting "rachunek" ;
|
|
GCongratulations = mkGreeting "gratulacje";
|
|
GHappyBirthday = mkGreeting "wszystkiego najlepszego z okazji urodzin" ;
|
|
GGoodLuck = mkGreeting "powodzenia" ;
|
|
}
|