(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.
This commit is contained in:
Inari Listenmaa
2019-02-09 15:28:20 +01:00
parent b0ea6680fb
commit 5fa83b90e4

View File

@@ -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 ;