Commit 55b9ec14 authored by Stephane Glondu's avatar Stephane Glondu

Remove last occurrences of "assert false"

parent 4e23098a
......@@ -70,7 +70,7 @@ let unsafe_make group =
let read state buf =
match Yojson.Safe.from_lexbuf ~stream:true state buf with
| `String s -> Z.of_string s
| _ -> assert false
| _ -> invalid_arg "Group_field.read: a string was expected"
let write buf x =
Bi_outbuf.add_char buf '"';
......
......@@ -56,7 +56,7 @@ let extractQuestion q =
(answers##length)
(fun i ->
let a = answers##item (i) >>= extractAnswer in
Js.Opt.get a (fun () -> assert false))
Js.Opt.get a (fun () -> failwith "extractQuestion"))
in
return {q_question; q_min; q_max; q_answers}
......@@ -70,7 +70,7 @@ let extractTemplate () =
(questions##length)
(fun i ->
let q = questions##item (i) >>= extractQuestion in
Js.Opt.get q (fun () -> assert false))
Js.Opt.get q (fun () -> failwith "extractTemplate"))
in
{t_name; t_short_name; t_description; t_questions}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment