fix(API): Fix listing exercise status when the status list hasn't bee…

…n initialized; Fix #314
ocaml-sf · Oct 15, 2021 · 3c781cb · 3c781cb
1 parent 03d871a
commit 3c781cb
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/state/learnocaml_store.ml b/src/state/learnocaml_store.ml
@@ -203,7 +203,12 @@ module Exercise = struct
           List.iter (fun st -> Hashtbl.add tbl st.id st) l;
           tbl)
       @@ function
-      | Unix.Unix_error (Unix.ENOENT, _, _) -> Lwt.return tbl
+      | Unix.Unix_error (Unix.ENOENT, _, _) ->
+          Lazy.force !index >>= fun index ->
+          Exercise.Index.fold_exercises (fun () id _ ->
+              Hashtbl.add tbl id (Exercise.Status.default id))
+            () index;
+          Lwt.return tbl
       | e -> Lwt.fail e
     )