Je suis curieux de voir si ça marche au long cours

Dans l'absolu cela devrait revenir au même, mais il y a peut-être une
astuce avec la récursivité. (Une fonction ne peut être définie à partir
d'elle même à moins d'apparaître dans un appel de fonction.)

src/GenerateurH5P.elm

@@ -1602,11 +1602,7 @@ branchingScenarioParserHelp profondeur ( contentList, contentId ) =
           succeed f
             |= contentParser profondeur contentId
             |. blankLines
-
+        , succeed (Done contentList)
-        -- Je me demande pourquoi on ne se contente pas d'écrire :
-        -- succeed (Done contentList)
-        , succeed ()
-            |> P.map (\_ -> Done contentList)
         ]