diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm index c870328..e60ef8f 100644 --- a/src/GenerateurH5P.elm +++ b/src/GenerateurH5P.elm @@ -1290,6 +1290,30 @@ voirErreur err = ++ String.fromInt err.col +h5pParser : Parser (H5P branchingScenarioComposable coursePresentationComposable) +h5pParser = + oneOf + [ branchingScenarioParser + , coursePresentationParser + , trueFalseParser + ] + + +branchingScenarioParser = + succeed (BranchingScenarioH5P nouveauBranchingScenario) + |. symbol "*" + + +coursePresentationParser = + succeed (BranchingScenarioH5P nouveauBranchingScenario) + |. symbol "*" + + +trueFalseParser = + succeed (BranchingScenarioH5P nouveauBranchingScenario) + |. symbol "*" + + contenu : Parser Blocs contenu = succeed (L.singleton << Contenu)