say it with me girls, "good enough!"

this is so dogshit

src/Core/Parse.y

@@ -2,6 +2,7 @@
 module Core.Parse
     ( parseCore
     , parseCoreExpr
+    , parseCoreProg
     , module Core.Lex -- temp convenience
     , parseTmp
     , SrcError
@@ -19,6 +20,7 @@ import Compiler.RLPC
 
 %name parseCore Module
 %name parseCoreExpr StandaloneExpr
+%name parseCoreProg StandaloneProgram
 %tokentype { Located CoreToken }
 %error { parseError }
 %monad { RLPC ParseError }
@@ -57,6 +59,9 @@ Eof             :: { () }
 Eof             : eof           { () }
                 | error         { () }
 
+StandaloneProgram :: { Program }
+StandaloneProgram : Program eof                 { $1 }
+
 Program         :: { Program }
 Program         : VOpen ScDefs VClose           { Program $2 }
                 | '{'   ScDefs '}'              { Program $2 }