Fix JS worker

src/bin/common/solving_loop.ml

@@ -270,11 +270,11 @@ let main () =
   in
 
   (* let all_used_context = FE.init_all_used_context () in
-  if Options.get_timelimit_per_goal() then
-    FE.print_status FE.Preprocess 0;
-  let assertion_stack = Stack.create () in
-  let typing_loop state p =
-    if get_parse_only () then state else begin
+     if Options.get_timelimit_per_goal() then
+     FE.print_status FE.Preprocess 0;
+     let assertion_stack = Stack.create () in
+     let typing_loop state p =
+     if get_parse_only () then state else begin
       try
         let l, env = I.type_parsed state.env assertion_stack p in
         let used_names = I.get_env_logics state.env in
@@ -285,8 +285,8 @@ let main () =
         if e != Warning_as_error then
           Printer.print_err "%a" Errors.report e;
         exit 1
-    end
-  in *)
+     end
+     in *)
 
   let handle_stmt :
     FE.used_context -> State.t ->

src/bin/gui/annoted_ast.ml

@@ -1841,7 +1841,7 @@ let rec add_atyped_decl errors (buffer:sbuffer) ?(indent=0) ?(tags=[]) d =
       | _ -> AFop (AOPnot, [aaform])
     in
     let goal_str =
-      match (gs : Typed.goal_sort) with
+      match (gs : Ty.goal_sort) with
       | Thm -> "check valid"
       | Sat -> "check sat"
       | AllSat l ->