Commit fbe6b671 authored by Stephane Glondu's avatar Stephane Glondu
Browse files

Display captcha errors in red

parent 622b27b6
......@@ -2524,8 +2524,12 @@ let signup_captcha_img challenge =
let format_captcha_error = function
| None -> pcdata ""
| Some BadCaptcha -> div [pcdata "Bad security code!"]
| Some BadAddress -> div [pcdata "Bad e-mail address!"]
| Some x ->
let msg = match x with
| BadCaptcha -> "Bad security code!"
| BadAddress -> "Bad e-mail address!"
in
div ~a:[a_style "color: red;"] [pcdata msg]
let signup_captcha ~service error challenge email =
let form =
......
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