Split out into an example

This commit is contained in:
Smaug123
2024-01-22 21:42:25 +00:00
parent 09782649a6
commit 45287e250a
10 changed files with 37 additions and 8 deletions

View File

@@ -252,4 +252,9 @@ module Parser =
go lhs rest
let parse parser inputString tokens = parseInner parser inputString tokens 0
let parse<'tokenTag, 'token, 'expr when 'tokenTag : comparison>
(parser : Parser<'tokenTag, 'token, 'expr>)
(inputString : string)
(tokens : 'token list)
=
parseInner parser inputString tokens 0