From 92c6eb16bbc2f85ec7445abddccc2c0eabac1184 Mon Sep 17 00:00:00 2001
From: Emery Hemingway <ehmry@posteo.net>
Date: Wed, 22 May 2024 18:59:03 +0300
Subject: [PATCH] schemaparse: do not capture annotation strings

---
 src/preserves/schemaparse.nim | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/preserves/schemaparse.nim b/src/preserves/schemaparse.nim
index 141bb61..60b4fa1 100644
--- a/src/preserves/schemaparse.nim
+++ b/src/preserves/schemaparse.nim
@@ -287,7 +287,7 @@ const parser = peg("Schema", p: ParseState):
   Value <- Preserves.Value:
     discard
 
-  Annotation <- '@' * (Preserves.String | Preserves.Record) * S
+  Annotation <- '@' * ('"' * *Preserves.char * '"' | Preserves.Record) * S
 
   S <- *{ ' ', '\t', '\r', '\n' }