From ac39c904603dbf5b55bfd5bef3a7cdf4b92c3e06 Mon Sep 17 00:00:00 2001
From: Roman Suzi <roman.suzi@talentadore.com>
Date: Sat, 9 May 2020 00:14:48 +0300
Subject: [PATCH] Fixes case for perfective/imperfective

---
 src/russian/MorphoRus.gf | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/russian/MorphoRus.gf b/src/russian/MorphoRus.gf
index 4536dbe55..c27be4613 100644
--- a/src/russian/MorphoRus.gf
+++ b/src/russian/MorphoRus.gf
@@ -1274,7 +1274,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str -> Str -> Verbu
 			   Dolzhen => <presentConjDolzhen,pastConjDolzhen> ;
 			   Foreign => <presentConjForeign,pastConj> } in 
        let patt = case a of {
-	            Perfective   => mkVerbImperfective;
+	            Perfective   => mkVerbPerfective;
 		    Imperfective => mkVerbImperfective } in
        patt inf imperSgP2 (conj.p1 del sgP1End) (conj.p2 sgMascPast) ;
 
@@ -1283,7 +1283,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str -> Str -> Verbu
 oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Str -> Verbum =
    \a, c, del, sgP1End, sgMascPast, imperSgP2, inf, altRoot -> 
        let patt = case a of {
-	            Perfective   => mkVerbImperfective;
+	            Perfective   => mkVerbPerfective;
 		    Imperfective => mkVerbImperfective } in
         patt inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast);