Parse records and keyed collection queries

src/main.ml

@@ -85,7 +85,7 @@ let load_source path =
   Diagnostic.set_file path;
   Native.read_file path
 
-let parse_source path = Parse.expression (load_source path)
+let parse_source path = Parse.program (load_source path)
 
 let frontend_unavailable () =
   Diagnostic.error Location.none "the delta pipeline beyond parsing is not implemented in this revision"