From d07c0dc8350a5214f5cf49ac8451080b9afea6d8 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Thu, 8 Sep 2022 15:10:07 +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/GenerateurH5P.elm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index 0de5f58..57029db 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -40,14 +40,14 @@ titre =
 
 
 type alias Model =
-    { structureDuContenu : String
+    { contentStructure : String
     , contenuGenere : String
     }
 
 
 init : Model
 init =
-    { structureDuContenu = ""
+    { contentStructure = ""
     , contenuGenere = ""
     }
 
@@ -81,10 +81,13 @@ update msg model =
                         Err erreurs ->
                             deadEndsToStringBis erreurs
             in
-            ( { model
-                | structureDuContenu = nouvelleStructure
-                , contenuGenere = f model.structureDuContenu
-              }
+            ( let
+                modelHelp =
+                    { model
+                        | contentStructure = nouvelleStructure
+                    }
+              in
+              { modelHelp | contenuGenere = f modelHelp.contentStructure }
             , Cmd.none
             )
 
@@ -98,7 +101,7 @@ update msg model =
                         Err erreurs ->
                             deadEndsToStringBis erreurs
             in
-            ( { model | contenuGenere = f model.structureDuContenu }
+            ( { model | contenuGenere = f model.contentStructure }
             , Cmd.none
             )
 
@@ -152,12 +155,12 @@ view model =
                 }
             ]
             { onChange = StructureDuContenu
-            , label = Input.labelHidden "chose"
+            , label = Input.labelHidden "Structure du contenu"
             , placeholder =
                 Just <|
                     Input.placeholder [] <|
                         text "Structure du contenu"
-            , text = model.structureDuContenu
+            , text = model.contentStructure
             , spellcheck = True
             }
         , column [ spacing petitEspacement, height fill, width fill, scrollbars ]