From 5857273c0b749fd37544eab5bb604a2e672ce823 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Optimal=20Sup-Sp=C3=A9?= <contact@optimalsupspe.fr>
Date: Tue, 16 Aug 2022 14:57:28 +0200
Subject: [PATCH] =?UTF-8?q?Adaptation=20au=20projet=20Le=20code=20d'origin?=
 =?UTF-8?q?e=20=C3=A9tait=20celui=20du=20g=C3=A9n=C3=A9rateur=20de=20probl?=
 =?UTF-8?q?=C3=A8mes?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/GenerateurH5P.elm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm
index 182f12f..3739de4 100644
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@@ -70,9 +70,9 @@ update msg model =
         StructureDuContenu nouvelleStructure ->
             let
                 f strCtn =
-                    case P.run (withIndent -1 contenu) strCtn of
+                    case P.run h5pParser strCtn of
                         Ok ctn ->
-                            voirBlocs ctn
+                            h5pEncode 2 ctn
 
                         Err erreurs ->
                             deadEndsToStringBis erreurs
@@ -87,9 +87,9 @@ update msg model =
         GenererContenu ->
             let
                 f strCtn =
-                    case P.run (withIndent -1 contenu) strCtn of
+                    case P.run h5pParser strCtn of
                         Ok ctn ->
-                            voirBlocs ctn
+                            h5pEncode 0 ctn
 
                         Err erreurs ->
                             deadEndsToStringBis erreurs