summaryrefslogtreecommitdiff
path: root/source/Syntax/Abstract.hs
diff options
context:
space:
mode:
authoradelon <22380201+adelon@users.noreply.github.com>2024-05-07 18:07:23 +0200
committeradelon <22380201+adelon@users.noreply.github.com>2024-05-07 18:07:23 +0200
commitb2f9f7900ccb4a569ed23e9ecf327564dbba2b7d (patch)
treeac781463be5cf38ed785cd22339a291ccf7cdec8 /source/Syntax/Abstract.hs
parentbc2ea0a384548aab50991c4de365f1afbad9a284 (diff)
Sketch noun coord, symbols for reals
Diffstat (limited to 'source/Syntax/Abstract.hs')
-rw-r--r--source/Syntax/Abstract.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/source/Syntax/Abstract.hs b/source/Syntax/Abstract.hs
index 6f30612..4aa8623 100644
--- a/source/Syntax/Abstract.hs
+++ b/source/Syntax/Abstract.hs
@@ -269,7 +269,7 @@ data Term
data Stmt
= StmtFormula Formula -- ^ E.g.: /@We have \<Formula\>@/.
| StmtVerbPhrase (NonEmpty Term) VerbPhrase -- ^ E.g.: /@\<Term\> and \<Term\> \<verb\>@/.
- | StmtNoun Term (NounPhrase Maybe) -- ^ E.g.: /@\<Term\> is a(n) \<NP\>@/.
+ | StmtNoun (NonEmpty Term) (NounPhrase Maybe) -- ^ E.g.: /@\<Term\> is a(n) \<NP\>@/.
| StmtStruct Term StructPhrase
| StmtNeg Stmt -- ^ E.g.: /@It is not the case that \<Stmt\>@/.
| StmtExists (NounPhrase []) -- ^ E.g.: /@There exists a(n) \<NP\>@/.