diff options
| author | Simon-Kor <52245124+Simon-Kor@users.noreply.github.com> | 2024-05-07 18:17:05 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-05-07 18:17:05 +0200 |
| commit | 36d099d58818cc437002fade61fda37968ffa1d2 (patch) | |
| tree | e8f09549d6850cafd5bafec7ce39f00d15aef94c /source/Syntax/Adapt.hs | |
| parent | fcaffbf3cb44e804fe6df25b32f09d33e1afbabb (diff) | |
| parent | e89c483a06f16cfd1e6a1c472c06e70854058654 (diff) | |
Merge branch 'adelon:main' into main
Diffstat (limited to 'source/Syntax/Adapt.hs')
| -rw-r--r-- | source/Syntax/Adapt.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/source/Syntax/Adapt.hs b/source/Syntax/Adapt.hs index 0896c08..b1237d2 100644 --- a/source/Syntax/Adapt.hs +++ b/source/Syntax/Adapt.hs @@ -313,6 +313,8 @@ guessNounPlural item = SgPl item (pluralize item) pluralize :: LexicalPhrase -> LexicalPhrase pluralize = \case Just (Word w) : pat'@(Just w' : _) | isPreposition w' -> Just (Word (Text.snoc w 's')) : pat' + tok : Just (Word w) : pat'@(Just w' : _) | isPreposition w' -> tok : Just (Word (Text.snoc w 's')) : pat' + tok1 : tok2 : Just (Word w) : pat'@(Just w' : _) | isPreposition w' -> tok1 : tok2 : Just (Word (Text.snoc w 's')) : pat' [Just (Word w)] -> [Just (Word (Text.snoc w 's'))] [tok, Just (Word w)] -> [tok, Just (Word (Text.snoc w 's'))] [tok, tok', Just (Word w)] -> [tok, tok', Just (Word (Text.snoc w 's'))] |