X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=parse.dcl;h=a3640fa954d3dd754c87634b5b2a9b90457c0a86;hb=87fe087ef7e1ad9deff8a725faf1ebbefcb7e549;hp=c7d177ccd7c2aa31b6c7243f9c8f36d61137d08c;hpb=953019d8255b9779d67fb1cb6c8946f589a24936;p=cc1516.git

diff --git a/parse.dcl b/parse.dcl
index c7d177c..a3640fa 100644
--- a/parse.dcl
+++ b/parse.dcl
@@ -4,5 +4,6 @@ import lex
 
 :: ParserOutput :== Either String AST
 :: AST = If | While //stub
+:: Error = ParseException
 
 parse :: LexerOutput -> ParserOutput