Require rules to end the line or the file.

This has the effect of forcing the maximum possible parse for a rule.
input-output-hk · Mar 5, 2024 · 36ebe50 · 36ebe50
1 parent f6ef857
commit 36ebe50
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Codec/CBOR/Cuddle/Parser.hs b/src/Codec/CBOR/Cuddle/Parser.hs
@@ -38,6 +38,8 @@ pRule =
         <*> (space *> pAssignG <* space)
         <*> (TOGGroup <$> pGrpEntry)
     ]
+    <* space
+    <* choice [void eol, eof]
 
 pName :: Parser Name
 pName = do