From a1a602c6810b572eec99a66112337ee6d2c2d5d1 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 23 Jul 2015 16:16:38 +0000
Subject: [PATCH] rewrote an mkPN application in WordsGer to work around a
 problem that might be a type checker bug

---
 examples/phrasebook/WordsGer.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples/phrasebook/WordsGer.gf b/examples/phrasebook/WordsGer.gf
index 2fba5a0db..4984eb080 100644
--- a/examples/phrasebook/WordsGer.gf
+++ b/examples/phrasebook/WordsGer.gf
@@ -230,7 +230,7 @@ CitRestaurant cit = mkCNPlace (mkCN cit  (mkN "Restaurant" "Restaurants" neuter)
        prop = mkA adj ; country = mkNP (mkPN co)} ;
      
     mkDay : Str -> {name : NP ; point : Adv ; habitual : Adv} = \d ->
-      let day = mkNP (mkPN d) in
+      let day = mkNP (mkPN d masculine) in
       {name = day ; 
        point = SyntaxGer.mkAdv (mkPrep "am" dative) day ; ---- am 
        habitual = ParadigmsGer.mkAdv (d + "s") ----