From e5f046ff83310ddfc419483f3d79e9c019dee710 Mon Sep 17 00:00:00 2001
From: Jean-Christophe Jameux <Echologie@gmail.com>
Date: Wed, 31 Aug 2022 16:43:43 +0200
Subject: [PATCH] Code mort

---
 src/GenerateurH5P.elm | 43 -------------------------------------------
 1 file changed, 43 deletions(-)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index 5e426fa..84a7a2f 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -1380,33 +1380,6 @@ h5psParser =
         }
 
 
-bloc : Int -> String -> Parser (H5P bSC cPC)
-bloc profondeur typeDeBloc =
-    let
-        f =
-            case typeDeBloc of
-                "BranchingScenario" ->
-                    BranchingScenarioH5P nouveauBranchingScenario
-
-                "CoursePresentation" ->
-                    CoursePresentationH5P nouveauCoursePresentation
-
-                "TrueFalse" ->
-                    TrueFalseH5P nouveauTrueFalse
-
-                _ ->
-                    BranchingScenarioH5P nouveauBranchingScenario
-    in
-    succeed f
-        |. symbol (S.repeat profondeur "*")
-        |. espaces
-        |. keyword typeDeBloc
-
-
-type alias BlocState =
-    {}
-
-
 h5pParser : Parser (H5P bSC cPC)
 h5pParser =
     oneOf
@@ -1457,22 +1430,6 @@ title =
             |. chompWhile ((/=) '\n')
 
 
-blankLines =
-    sequence
-        { start = ""
-        , separator = "\n"
-        , end = ""
-        , spaces = blankLine
-        , item =
-            oneOf
-                [ bloc 1 "BranchingScenario"
-                , bloc 1 "CoursePresentation"
-                , bloc 1 "TrueFalse"
-                ]
-        , trailing = Optional
-        }
-
-
 blankLine =
     succeed ()
         |. espaces