diff --git a/modules/webapp/src/main/elm/Comp/DetailEdit.elm b/modules/webapp/src/main/elm/Comp/DetailEdit.elm index 12efb8a4..5330da9c 100644 --- a/modules/webapp/src/main/elm/Comp/DetailEdit.elm +++ b/modules/webapp/src/main/elm/Comp/DetailEdit.elm @@ -300,12 +300,20 @@ update flags msg model = ) SubmitResp (Ok res) -> + let + ret = + if res.success then + Just (makeValue model.form) + + else + Nothing + in ( { model | result = Just res , submitting = False } , Cmd.none - , Just (makeValue model.form) + , ret ) SubmitResp (Err err) ->