Résolution du problème de mise à jour du contenu généré

3 years ago · 1a45c00ce0
parent f9002381b0
commit 1a45c00ce0
1 changed files with 12 additions and 6 deletions
--- a/src/GenerateurJson.elm
+++ b/src/GenerateurJson.elm
@ -68,17 +68,23 @@ update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
    case msg of
        NomObjet nom ->
-            ( { model
-                | nomObjet = nom
-                , codeElmGenere = generateur model.nomObjet model.sourceJson
+            let
+                modelHelp =
+                    { model | nomObjet = nom }
+            in
+            ( { modelHelp
+                | codeElmGenere = generateur modelHelp.nomObjet modelHelp.sourceJson
              }
            , Cmd.none
            )

        SourceJson source ->
-            ( { model
-                | sourceJson = source
-                , codeElmGenere = generateur model.nomObjet model.sourceJson
+            let
+                modelHelp =
+                    { model | sourceJson = source }
+            in
+            ( { modelHelp
+                | codeElmGenere = generateur modelHelp.nomObjet modelHelp.sourceJson
              }
            , Cmd.none
            )