1 files changed, 24 insertions, 27 deletions
diff --git a/examples/phrasebook/GreetingsDan.gf b/examples/phrasebook/GreetingsDan.gf
index 531750f29..6b2cdb3a7 100644
--- a/examples/phrasebook/GreetingsDan.gf
+++ b/examples/phrasebook/GreetingsDan.gf
@@ -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" ; 
 
 }