From d66ae4fdc23a9247aa2874fc7a4f063a64fec54b Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Mon, 19 Oct 2020 00:30:21 +0200
Subject: [PATCH] Display error message properly on modal edit

---
 modules/webapp/src/main/elm/Comp/DetailEdit.elm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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) ->