fix: better error msg for X-token registration

This fix the first point of the issue #405.
ocaml-sf · Jul 20, 2021 · e27415c · e27415c
1 parent e82c23e
commit e27415c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/state/learnocaml_store.ml b/src/state/learnocaml_store.ml
@@ -339,7 +339,9 @@ module Token = struct
 
   let register ?(allow_teacher=false) token =
     if not allow_teacher && is_teacher token then
-      Lwt.fail (Invalid_argument "Registration of teacher token not allowed")
+      Lwt.fail
+        (Invalid_argument "Registration of teacher token forbidden. \
+          Logout and use a new teacher token?")
     else
       Lwt.catch (fun () ->
           Lwt_io.with_file ~mode:Lwt_io.Output ~perm:0o700 (save_path token)