Adaptation au projet

Le code d'origine était celui du générateur de problèmes
3 years ago · 5857273c0b
parent 3b9b5165bb
commit 5857273c0b
1 changed files with 4 additions and 4 deletions
--- 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