X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=main.icl;h=ced5b0a9beefd448590368fb47ad5c705798645a;hb=953019d8255b9779d67fb1cb6c8946f589a24936;hp=90624e85258baba1f87753db980c6c1610bdcae1;hpb=e3f049be4fb2ed9b7f675f06a9a525c81af9946c;p=cc1516.git

diff --git a/main.icl b/main.icl
index 90624e8..ced5b0a 100644
--- a/main.icl
+++ b/main.icl
@@ -4,13 +4,14 @@ import StdFile
 import StdBool
 
 import lex
+import parse
 
-Start :: *World -> (LexerOutput, *World)
+Start :: *World -> (ParserOutput, *World)
 Start w
 # (out, w) = stdio w
 # (toparse, out) = readEntireFile out
 # (_, w) = fclose out w
-= (lexer toparse, w)
+= (parse (lexer toparse), w)
 
 readEntireFile :: *File -> *([Char], *File)
 readEntireFile f