mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
8 lines
373 B
Plaintext
8 lines
373 B
Plaintext
Kind.Term.parser.str
|
|
: (Parser.Guard Kind.PreTerm)
|
|
= (Parser.Guard.text Kind.PreTerm String.quote
|
|
(Kind.Term.parser.bind Unit (Parser.text String.quote) λ_
|
|
(Kind.Term.parser.bind String (Parser.until Char (Parser.test String.quote) Parser.char) λchars
|
|
(Kind.Term.parser.bind Unit (Parser.text String.quote) λ_
|
|
(Kind.Term.parser.pure λscp
|
|
(Kind.txt chars)))))) |