From 3fd7cf4e87b3bb7f2492a51732dabc9d8c25dba4 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Thu, 23 Jul 2015 16:03:18 +0000
Subject: [PATCH] restored one-arg mkPN

---
 lib/src/german/ParadigmsGer.gf | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/src/german/ParadigmsGer.gf b/lib/src/german/ParadigmsGer.gf
index 66e378d6b..355d49138 100644
--- a/lib/src/german/ParadigmsGer.gf
+++ b/lib/src/german/ParadigmsGer.gf
@@ -126,6 +126,7 @@ mkN : overload {
 -- taken into account.
 
   mkPN : overload {
+    mkPN : Str -> PN ; -- regular name with genitive in "s", masculine
     mkPN : Str -> Gender -> PN ; -- regular name with genitive in "s"
 
 -- If only the genitive differs, two strings are needed.
@@ -461,6 +462,7 @@ mkV2 : overload {
     mk2PN horst (ifTok Tok (Predef.dp 1 horst) "s" horst (horst + "s")) g ;
 
   mkPN = overload {
+    mkPN : Str -> PN = \s -> regPN s Masc ;
     mkPN : Str -> Gender -> PN = regPN ;
     mkPN : N -> PN = \n -> lin PN {s = n.s ! Sg; g = n.g} ;
     mkPN : (nom,gen : Str) -> Gender -> PN = mk2PN ;