From 1a45c00ce094a1d992c9f4651d16ed1252f6ccff Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Mon, 12 Sep 2022 17:57:52 +0200
Subject: [PATCH] =?UTF-8?q?R=C3=A9solution=20du=20probl=C3=A8me=20de=20mis?=
 =?UTF-8?q?e=20=C3=A0=20jour=20du=20contenu=20g=C3=A9n=C3=A9r=C3=A9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/GenerateurJson.elm | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/src/GenerateurJson.elm b/src/GenerateurJson.elm
index d6e75e9..474e78b 100644
--- 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
             )