From ea6c8118e8fa036c6375bde248212558bcb061c4 Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Wed, 22 May 2024 18:32:56 +0300
Subject: [PATCH] schemaparse: fix parsing of annotated named record fields

---
 preserves.nimble              | 4 ++--
 src/preserves/schemaparse.nim | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/preserves.nimble b/preserves.nimble
index 22ee7ea..0fa1a11 100644
--- a/preserves.nimble
+++ b/preserves.nimble
@@ -1,6 +1,6 @@
-# Package
+# auto-update-version
 
-version = "20240506"
+version = "20240522"
 author        = "Emery Hemingway"
 description   = "data model and serialization format"
 license       = "Unlicense"
diff --git a/src/preserves/schemaparse.nim b/src/preserves/schemaparse.nim
index 1dff4ad..690243b 100644
--- a/src/preserves/schemaparse.nim
+++ b/src/preserves/schemaparse.nim
@@ -263,12 +263,12 @@ const parser = peg("Schema", p: ParseState):
     pushStack n
 
   NamedPattern <- ((atId * ?Annotation * SimplePattern) | Pattern):
-    if capture.len == 2:
+    if capture.len > 1:
       var n = initRecord(toSymbol"named", toSymbol $1, popStack())
       pushStack n
 
   NamedSimplePattern <- ((atId * ?Annotation * SimplePattern) | SimplePattern):
-    if capture.len == 2:
+    if capture.len > 1:
       var n = initRecord(toSymbol"named", toSymbol $1, popStack())
       pushStack n