А
SendNextFormField ->или
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