Start :: *World -> (ParserOutput, *World)
Start w
# (out, w) = stdio w
# (toparse, out) = readEntireFile out
# (_, w) = fclose out w
= (parse (lexer toparse), w)
Start :: *World -> (ParserOutput, *World)
Start w
# (out, w) = stdio w
# (toparse, out) = readEntireFile out
# (_, w) = fclose out w
= (parse (lexer toparse), w)