From 1e247022be40bf30596d1725052a67f72b44772c Mon Sep 17 00:00:00 2001 From: Jean-Christophe Jameux Date: Sat, 3 Sep 2022 09:22:05 +0200 Subject: [PATCH] =?UTF-8?q?Je=20suis=20curieux=20de=20voir=20si=20=C3=A7a?= =?UTF-8?q?=20marche=20au=20long=20cours?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm index 7f2f429..0275480 100644 --- a/src/GenerateurH5P.elm +++ b/src/GenerateurH5P.elm @@ -1602,11 +1602,7 @@ branchingScenarioParserHelp profondeur ( contentList, contentId ) = succeed f |= contentParser profondeur contentId |. blankLines - - -- Je me demande pourquoi on ne se contente pas d'écrire : - -- succeed (Done contentList) - , succeed () - |> P.map (\_ -> Done contentList) + , succeed (Done contentList) ]