меня на мгновение символ печатается и только потом фильтруется, как исправить?
elClass "div" Style.wrapper $ mdo
elAttr "label" (class_ Style.inputTitle) $ text "Phone number"
phone <- textInput $ def
& attributes .~ constDyn
( class_ Style.input
<> placeholder "+7 (800) 555-35-35"
)
& setValue .~ evPhone
& textInputConfig_initialValue .~ "ke"
let evPhone = tagPromptlyDyn
( Text.filter
(\chr ->
isDigit chr
|| chr == ' '
|| chr == '('
|| chr == ')'
|| chr == '+'
|| chr == '-'
)
<$> value phone
)
$ _textInput_input phone
а вот так не лучше будет? isDigit chr || chr elem " ()+-"
Обсуждают сегодня