we now support irregAdv in Swedish

This commit is contained in:
krasimir
2015-11-18 10:13:32 +00:00
parent 4e1a055703
commit 5defcc18bf
7 changed files with 20 additions and 14 deletions

View File

@@ -44,7 +44,9 @@ lin
caseInfl Nom ++
tr (intagAttr "th" "colspan=5" "genitiv") ++
caseInfl Nom
)
) ++
heading1 ("Adverb") ++
paragraph (adj.s ! AAdv) ;
} where {
caseInfl : Case -> Str = \c ->
tr (intagAttr "th" "rowspan=3" "obest" ++