Skip to content

Commit

Permalink
fix(grader): Workaround ocaml-sf#457
Browse files Browse the repository at this point in the history
Graders using module `Introspection` (which used to work with 0.12)
should now work with `ocamlsf/learn-ocaml:master` as well, i.e., they
should not raise `Ctype.Unification_trace.Unify(_)` any longer.

href: ocaml-sf#457 (comment)
  • Loading branch information
erikmd committed Nov 8, 2021
1 parent c2399b0 commit 4ef42f5
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/grader/grading.ml
Expand Up @@ -139,6 +139,10 @@ let get_grade
handle_error (internal_error [%i"while preparing the tests"]) @@
Toploop_ext.use_string ~print_outcome ~ppf_answer
"module Report = Learnocaml_report" ;
(* The following 3 lines are just a workaround for issue #457 *)
handle_error (internal_error [%i"while preparing the tests"]) @@
Toploop_ext.use_string ~print_outcome ~ppf_answer
"module Introspection = Introspection" ;
set_progress [%i"Launching the test bench."] ;
let () =
Expand Down

0 comments on commit 4ef42f5

Please sign in to comment.