Commit 58af5aac authored by Stephane Glondu's avatar Stephane Glondu

Remove suspicious call to cast_unknown_content_kind

parent f1f1ecee
......@@ -1188,12 +1188,11 @@ let () =
let module W = (val w) in
let module WE = Web_election.Make (W) (LwtRandom) in
if metadata.e_owner = Some u then (
(try%lwt
try%lwt
WE.B.update_cred ~old ~new_ >>
String.send ("OK", "text/plain")
with Error e ->
with Error e ->
String.send ("Error: " ^ explain_error e, "text/plain")
) >>= (fun x -> return @@ cast_unknown_content_kind x)
) else forbidden ()
)
)
......
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