diff --git a/app/Main.hs b/app/Main.hs
index 6c11ecd..26ed2db 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -133,7 +133,7 @@ ddumpEval = whenFlag flagDDumpEval do
 
 parseProg :: RLPCOptions
           -> String
-          -> Either SrcError (CoreProgram, [SrcError])
+          -> Either SrcError (Program', [SrcError])
 parseProg o = evalRLPC o . (lexCore >=> parseCoreProg)
 
 forFiles_ :: (Monad m)