FIX Structure du Json des BranchingScenario

3 years ago · 5575f48971
parent d8b5524e1a
commit 5575f48971
1 changed files with 9 additions and 5 deletions
--- 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 )
+                ]
+          )
        ]