Mise à jour après correction

src/GenerateurH5P.elm

@@ -2527,46 +2527,53 @@ signParser =
 
 trueFalseBlocContentParser feedback =
     oneOf
-        [ succeed identity
+        [ succeed S.length
-            |. spacesOrTabs
+            |= getChompedString spacesOrTabs
-            |= oneOf
+            |> andThen
-                [ succeed
+                (\numberOfSpaces ->
-                    (\truthValue line ->
+                    oneOf
-                        case truthValue of
+                        [ succeed
-                            True ->
+                            (\truthValue line ->
-                                { feedback | onCorrect = line :: feedback.onCorrect }
+                                case truthValue of
-
+                                    True ->
-                            False ->
+                                        { feedback | onCorrect = line :: feedback.onCorrect }
-                                { feedback | onWrong = line :: feedback.onWrong }
+
-                    )
+                                    False ->
-                    |. spacesOrTabs
+                                        { feedback | onWrong = line :: feedback.onWrong }
-                    |= signParser
+                            )
-                    |. atLeastOneSpace
+                            |. spacesOrTabs
-                    |= getChompedString (chompWhile ((/=) '\n'))
+                            |= signParser
-                    |. oneOf
+                            |. atLeastOneSpace
-                        [ token (Token "\n" GenericProblem)
+                            |= getChompedString (chompWhile ((/=) '\n'))
-                        , succeed ()
+                            |. oneOf
-                        ]
+                                [ token (Token "\n" GenericProblem)
-                    |> andThen trueFalseBlocContentParser
+                                , succeed ()
-                , succeed
+                                ]
-                    (\line ->
+                            |> andThen trueFalseBlocContentParser
-                        { feedback
+                        , succeed
-                            | onCorrect = line :: feedback.onCorrect
+                            (\line ->
-                            , onWrong = line :: feedback.onWrong
+                                { feedback
-                        }
+                                    | onCorrect = line :: feedback.onCorrect
-                    )
+                                    , onWrong = line :: feedback.onWrong
-                    |= getChompedString
+                                }
-                        (succeed ()
+                            )
-                            |. chompIf ((/=) '*') EndOfFile
+                            |= getChompedString
-                            |. chompWhile ((/=) '\n')
+                                (succeed ()
-                            |. chompWhile ((/=) '\n')
+                                    |. (if numberOfSpaces == 0 then
-                        )
+                                            chompIf ((/=) '*') EndOfFile
-                    |. oneOf
+
-                        [ token (Token "\n" GenericProblem)
+                                        else
-                        , succeed ()
+                                            succeed ()
+                                                |. chompWhile ((/=) '\n')
+                                       )
+                                )
+                            |. oneOf
+                                [ token (Token "\n" GenericProblem)
+                                , succeed ()
+                                ]
+                            |> andThen trueFalseBlocContentParser
                         ]
-                    |> andThen trueFalseBlocContentParser
+                )
-                ]
         , succeed
             { onCorrect = Just <| S.join "\n" <| L.reverse feedback.onCorrect
             , onWrong = Just <| S.join "\n" <| L.reverse feedback.onWrong