From 9b9ef182429776faf1e18cda271187593ba9197f Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Wed, 13 Mar 2019 15:48:11 +0100
Subject: [PATCH] (Pes) Add a constructor for N that doesn't pattern match

---
 src/persian/MorphoPes.gf | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf
index c42aafe42..ab02b8719 100644
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -97,7 +97,7 @@ oper
     isCmpd : CmpdStatus       -- Affects possession: awkward to use poss. suff. with compound nouns
   } ;
 
-  mkN : (x1,x2 : Str) -> Animacy -> Noun = \sg,pl,ani -> {
+  mkN : (x1,x2 : Str) -> Animacy -> Noun = \sg,pl,ani -> indeclN sg ** {
     s = table {
            Sg => table {Bare => sg ;
                         Ezafe => mkEzafe sg ;
@@ -106,10 +106,13 @@ oper
            Pl => table {Bare => pl ;
                         Ezafe => mkEzafe pl ;
                         Clitic => mkEnclic pl ;
-                        Poss => mkPossStem pl }
-      } ;
-     animacy = ani ; isCmpd = NotCmpd
-    } ;
+                        Poss => mkPossStem pl }}
+  } ;
+
+  indeclN : Str -> Noun = \s -> {
+    s = \\_,_ => s ;
+    animacy = Inanimate ; isCmpd = NotCmpd
+  } ;
 
 -- masculine nouns end with alif, choTi_hay, ain Translitration: (a, h, e)
 -- Arabic nouns ends with h. also taken as Masc