Display error message properly on modal edit

This commit is contained in:
Eike Kettner 2020-10-19 00:30:21 +02:00
parent 3771587e55
commit d66ae4fdc2

View File

@ -300,12 +300,20 @@ update flags msg model =
) )
SubmitResp (Ok res) -> SubmitResp (Ok res) ->
let
ret =
if res.success then
Just (makeValue model.form)
else
Nothing
in
( { model ( { model
| result = Just res | result = Just res
, submitting = False , submitting = False
} }
, Cmd.none , Cmd.none
, Just (makeValue model.form) , ret
) )
SubmitResp (Err err) -> SubmitResp (Err err) ->