Skip to content

Instantly share code, notes, and snippets.

@fierval

fierval/gist:1674139

Created Jan 25, 2012
Embed
What would you like to do?
type PushParser<'a> = Parser<'a, unit>
let ws = spaces
let str s = pstring s
let openList : PushParser<string> = str "(" .>> ws
let closeList : PushParser<string> = ws >>. str ")"
let internal pushProgram, internal pushProgramRef = createParserForwardedToRef()
let internal listSeries = (sepEndBy pushProgram spaces) |>> PushList
let internal pushList = between openList closeList listSeries
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment