echologie
/
TeacherCorner
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX Structure du Json des BranchingScenario

Browse Source
pull/1/head
Jean-Christophe Jameux 3 years ago
parent d8b5524e1a
commit 5575f48971
1 changed files with 9 additions and 5 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 14
      src/GenerateurH5P.elm

14
src/GenerateurH5P.elm
Unescape View File

@ -405,11 +405,15 @@ branchingScenarioStartScreenDecoder =
encodedBranchingScenario : BranchingScenario -> E.Value encodedBranchingScenario : BranchingScenario -> E.Value
encodedBranchingScenario branchingScenario = encodedBranchingScenario branchingScenario =
E.object E.object
[ ( "behaviour", encodedBranchingScenarioBehaviour branchingScenario.behaviour ) [ ( "branchingScenario"
, ( "endScreens", E.list encodedBranchingScenarioEndScreensObject branchingScenario.endScreens ) , E.object
, ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n ) [ ( "behaviour", encodedBranchingScenarioBehaviour branchingScenario.behaviour )
, ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup ) , ( "endScreens", E.list encodedBranchingScenarioEndScreensObject branchingScenario.endScreens )
, ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen ) , ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n )
, ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup )
, ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen )
]
)
] ]

Write Preview
Loading…
Cancel
Save