either (const $ notify' "Анкета уже заполнена!")
(notify' . mappend "Заполните поле: " . show)
. (nextStepForm =<<) =<< currentFormили
SendNextFormField -> do
current <- currentForm
case current >>= nextStepForm of
Left form -> do
notify' "Анкета уже заполнена!"
Right field_type ->
notify' $ "Заполните поле: " <> show field_type?
второй, однозначно. можно ещё notify' вынести за скобки case
Обсуждают сегодня