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

src/GenerateurJson.elm

@@ -68,17 +68,23 @@ update : Msg -> Model -> ( Model, Cmd Msg )
 update msg model =
     case msg of
         NomObjet nom ->
-            ( { model
+            let
-                | nomObjet = nom
+                modelHelp =
-                , codeElmGenere = generateur model.nomObjet model.sourceJson
+                    { model | nomObjet = nom }
+            in
+            ( { modelHelp
+                | codeElmGenere = generateur modelHelp.nomObjet modelHelp.sourceJson
               }
             , Cmd.none
             )
 
         SourceJson source ->
-            ( { model
+            let
-                | sourceJson = source
+                modelHelp =
-                , codeElmGenere = generateur model.nomObjet model.sourceJson
+                    { model | sourceJson = source }
+            in
+            ( { modelHelp
+                | codeElmGenere = generateur modelHelp.nomObjet modelHelp.sourceJson
               }
             , Cmd.none
             )