From 5fa83b90e43f1048a1c6675f9ddfd087dbb108a9 Mon Sep 17 00:00:00 2001
From: Inari Listenmaa <inari.listenmaa@gmail.com>
Date: Sat, 9 Feb 2019 15:28:20 +0100
Subject: [PATCH] (Pes) Add possibility to use vowel diacritic (kasre) in
 mkEzafa

It's still not using kasre, but if you want to use it, just change one
line.
---
 src/persian/MorphoPes.gf | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf
index 9c4037eef..730dc3245 100644
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -54,8 +54,9 @@ oper
 ------------------------
 oper
 
-  mkEzafa : Str -> Str ;
-  mkEzafa str = let kasre = "ِ" in
+  mkEzafa : Str -> Str = \str ->
+    --let kasre = "ِ" in -- TODO: Eventually use this
+    let kasre = "" in
     case str of {
       st + "اه" => str + kasre ;
       st + "وه" => str + kasre ;