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,31 +1,28 @@
concrete GreetingsDan of Greetings = open Prelude in {
lincat
Greeting = SS ;
concrete GreetingsDan of Greetings = SentencesDan [Greeting,mkGreeting] ** open Prelude in {
lin
GBye = ss "hej hej" ; -- not google translate
GCheers = ss "skål" ;
GDamn = ss "satans" ; -- X
GExcuse, GExcusePol = ss "undskyld mig" ;
GGoodDay = ss "god dag" ;
GGoodEvening = ss "god aften" ;
GGoodMorning = ss "god morgen" ;
GGoodNight = ss "godnat" ;
GGoodbye = ss "farvel" ;
GHello = ss "hej" ;
GHelp = ss "hjælp" ;
GHowAreYou = ss "hvordan har du det" ;
GLookOut = ss "pas på" ;
GNiceToMeetYou, GNiceToMeetYouPol = ss "hyggeligt at møde dig" ; -- more common than rart (google translate)
GPleaseGive = ss "vær så sød" ; -- can also have flink instead of sod
GPleaseGivePol = ss "venligst" ; -- X not behage
GSeeYouSoon = ss "vi ses snart" ; -- X se dig snart
GSorry, GSorryPol = ss "undskyld" ;
GThanks = ss "tak" ;
GTheCheck = ss "regningen" ;
GCongratulations = ss "tillykke";
GHappyBirthday = ss "tillykke med fødselsdagen" ;
GGoodLuck = ss "held og lykke" ;
GBye = mkGreeting "hej hej" ; -- not google translate
GCheers = mkGreeting "skål" ;
GDamn = mkGreeting "satans" ; -- X
GExcuse, GExcusePol = mkGreeting "undskyld mig" ;
GGoodDay = mkGreeting "god dag" ;
GGoodEvening = mkGreeting "god aften" ;
GGoodMorning = mkGreeting "god morgen" ;
GGoodNight = mkGreeting "godnat" ;
GGoodbye = mkGreeting "farvel" ;
GHello = mkGreeting "hej" ;
GHelp = mkGreeting "hjælp" ;
GHowAreYou = mkGreeting "hvordan har du det" ;
GLookOut = mkGreeting "pas på" ;
GNiceToMeetYou, GNiceToMeetYouPol = mkGreeting "hyggeligt at møde dig" ; -- more common than rart (google translate)
GPleaseGive = mkGreeting "vær så sød" ; -- can also have flink instead of sod
GPleaseGivePol = mkGreeting "venligst" ; -- X not behage
GSeeYouSoon = mkGreeting "vi ses snart" ; -- X se dig snart
GSorry, GSorryPol = mkGreeting "undskyld" ;
GThanks = mkGreeting "tak" ;
GTheCheck = mkGreeting "regningen" ;
GCongratulations = mkGreeting "tillykke";
GHappyBirthday = mkGreeting "tillykke med fødselsdagen" ;
GGoodLuck = mkGreeting "held og lykke" ;
}