(Hun) Adjust types for numerals

2020-03-30 21:51:42 +02:00
parent 4a8668fce9
commit 60500231d8
3 changed files with 14 additions and 12 deletions
@@ -82,7 +82,9 @@ concrete NounHun of Noun = CatHun ** open ResHun, Prelude in {
  NumPl = baseNum ** {n = Pl} ;

  -- : Card -> Num ;
-  NumCard card = card ;
+  NumCard card = card ** {
+    n = Sg -- Numerals take noun in Sg: e.g. öt város, literally 'five city'
+    } ;

  -- : Digits  -> Card ;
  --  NumDigits dig =