From a4696191a8ddbf053190e44d11b095abb8fe3069 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Thu, 18 Aug 2022 13:23:21 +0200
Subject: [PATCH] Tentative malencontreuse

---
 src/GenerateurH5P.elm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index 7562999..826a337 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -1350,7 +1350,23 @@ nouveauTrueFalse =
 -}
 
 
-h5pParser : Parser (H5P branchingScenarioComposable coursePresentationComposable)
+parser =
+    loop {} <| bloc 1
+
+
+bloc : Int -> H5P bSC cPC -> Parser (Step (H5P bSC cPC) (H5P bSC cPC))
+bloc n blocState =
+    succeed (Done <| BranchingScenarioH5P nouveauBranchingScenario)
+        |. symbol (S.repeat n "*")
+        |. espaces
+        |. keyword "f"
+
+
+type alias BlocState =
+    {}
+
+
+h5pParser : Parser (H5P bSC cPC)
 h5pParser =
     oneOf
         [ branchingScenarioParser