Commit 232d9393 authored by Steffen Michels's avatar Steffen Michels

require min length of 1 in Username & Password editors

parent 7b209b00
......@@ -76,8 +76,8 @@ JSONDecode{|Username|} _ c = (Nothing,c)
gEditor{|Username|} = bijectEditorValue (\(Username u) -> u) (\s -> (Username s)) (selectByMode
textView
(withDynamicHintAttributes "username" (withEditModeAttr textField ))
(withDynamicHintAttributes "username" (withEditModeAttr textField )))
(withDynamicHintAttributes "username" (withEditModeAttr textField <<@ minlengthAttr 1))
(withDynamicHintAttributes "username" (withEditModeAttr textField <<@ minlengthAttr 1)))
derive gDefault Username
derive gEq Username
......@@ -104,8 +104,8 @@ gText{|Password|} _ _ = ["********"]
gEditor{|Password|} = bijectEditorValue (\(Password p) -> p) (\s -> (Password s))
(selectByMode (comapEditorValue (const "********") textView)
(withDynamicHintAttributes "password" (withEditModeAttr passwordField ))
(withDynamicHintAttributes "password" (withEditModeAttr passwordField )))
(withDynamicHintAttributes "password" (withEditModeAttr passwordField <<@ minlengthAttr 1))
(withDynamicHintAttributes "password" (withEditModeAttr passwordField <<@ minlengthAttr 1)))
derive gDefault Password
derive gEq Password
......
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