diff options
| author | adelon <22380201+adelon@users.noreply.github.com> | 2026-02-14 00:01:37 +0100 |
|---|---|---|
| committer | adelon <22380201+adelon@users.noreply.github.com> | 2026-02-14 00:01:37 +0100 |
| commit | 036e2f56240b7b76bd5a47f721902ede1a674c50 (patch) | |
| tree | 0aa3e5cd5f670286d90ab545a6b7669f46e6d101 /source | |
| parent | 0134d2d8a3c0e9e386790323edf5851ed5be3351 (diff) | |
Simplify
Diffstat (limited to 'source')
| -rw-r--r-- | source/Syntax/Concrete.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/source/Syntax/Concrete.hs b/source/Syntax/Concrete.hs index e233655..25f0122 100644 --- a/source/Syntax/Concrete.hs +++ b/source/Syntax/Concrete.hs @@ -216,11 +216,11 @@ grammar lexicon@Lexicon{..} = mdo stmtNounIs <- rule do ts <- singletonTerm np <- _is *> _an *> nounPhrase - pure let t :| _ = ts in (StmtNoun ts np) + pure (StmtNoun ts np) stmtNounAre <- rule do ts <- nonemptyTerms <* _are np <- nounPhrasePlMay - pure let t :| _ = ts in (StmtNoun ts np) + pure (StmtNoun ts np) stmtNounIsNot <- rule do ts <- singletonTerm np <- _is *> _not *> _an *> nounPhrase |