Resolve bindings with fresh identifiers

src/main.ml

@@ -87,24 +87,26 @@ let load_source path =
 
 let parse_source path = Parse.program (load_source path)
 
+let resolve_source path = Resolve.program (parse_source path)
+
 let frontend_unavailable () =
   Diagnostic.error Location.none "the delta pipeline beyond parsing is not implemented in this revision"
 
 let check path =
-  ignore (parse_source path)
+  ignore (resolve_source path)
 
 let dump stage path =
   ignore (stage);
-  ignore (parse_source path);
+  ignore (resolve_source path);
   frontend_unavailable ()
 
 let emit path output =
-  ignore (parse_source path);
+  ignore (resolve_source path);
   ignore output;
   frontend_unavailable ()
 
 let build path output =
-  ignore (parse_source path);
+  ignore (resolve_source path);
   ignore output;
   frontend_unavailable ()