Mise à jour après correction

src/GenerateurH5P.elm

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