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. 4
      src/GenerateurH5P.elm

4
src/GenerateurH5P.elm
Unescape View File

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

Write Preview
Loading…
Cancel
Save