From 5575f4897180b9ab97cc373ac41777bd31d379cb Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Thu, 18 Aug 2022 13:22:56 +0200
Subject: [PATCH] FIX Structure du Json des BranchingScenario

---
 src/GenerateurH5P.elm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index 585edd2..7562999 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -405,11 +405,15 @@ branchingScenarioStartScreenDecoder =
 encodedBranchingScenario : BranchingScenario -> E.Value
 encodedBranchingScenario branchingScenario =
     E.object
-        [ ( "behaviour", encodedBranchingScenarioBehaviour branchingScenario.behaviour )
-        , ( "endScreens", E.list encodedBranchingScenarioEndScreensObject branchingScenario.endScreens )
-        , ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n )
-        , ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup )
-        , ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen )
+        [ ( "branchingScenario"
+          , E.object
+                [ ( "behaviour", encodedBranchingScenarioBehaviour branchingScenario.behaviour )
+                , ( "endScreens", E.list encodedBranchingScenarioEndScreensObject branchingScenario.endScreens )
+                , ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n )
+                , ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup )
+                , ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen )
+                ]
+          )
         ]