(Fin) move #consonant to Morpho + add oöHarmony

src/finnish/MorphoFin.gf

@@ -726,6 +726,11 @@ resource MorphoFin = ResFin ** open Prelude in {
       _ => "y"
       } ;
 
+    oöHarmony : Str -> Str = \a -> case a of {
+      "a" => "o" ;
+      _ => "ö"
+      } ;
+
     VForms : Type = Predef.Ints 11 => Str ;
 
     vForms12 : (x1,_,_,_,_,_,_,_,_,_,_,x12 : Str) -> VForms =
@@ -861,6 +866,8 @@ resource MorphoFin = ResFin ** open Prelude in {
 
   vowel : pattern Str = #("a"|"e"|"i"|"o"|"u"|"y"|"ä"|"ö") ;
 
+  consonant : pattern Str = #("b"|"c"|"d"|"f"|"g"|"h"|"j"|"k"|"l"|"m"|"n"|"p"|"q"|"r"|"s"|"t"|"v"|"w"|"x"|"z") ;
+
 -- The following function defines how grade alternation works if it is active.
 -- In general, *whether there is* grade alternation must be given in the lexicon
 -- (cf. "auto - auton" not "audon"; "vihje - vihjeen" not "vihkeen").

src/finnish/ParadigmsFin.gf

@@ -712,8 +712,6 @@ mkVS = overload {
            }
       } ;
 
-  consonant : pattern Str = #("b"|"c"|"d"|"f"|"g"|"h"|"j"|"k"|"l"|"m"|"n"|"p"|"q"|"r"|"s"|"t"|"v"|"w"|"x"|"z") ;
-
   -- like nForms2, but 2nd argument is Pl Genitive
   nForms2plGen : (sydan,sydanten : Str) -> NForms = \sydan,sydanten ->
     table {