Mise à jour après correction

3 years ago · d5ab27b54c
parent ccda287f23
commit d5ab27b54c
2 changed files with 47 additions and 40 deletions
--- a/docs/prof.js
+++ b/docs/prof.js
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@ -2527,9 +2527,11 @@ signParser =

 trueFalseBlocContentParser feedback =
    oneOf
-        [ succeed identity
-            |. spacesOrTabs
-            |= oneOf
+        [ succeed S.length
+            |= getChompedString spacesOrTabs
+            |> andThen
+                (\numberOfSpaces ->
+                    oneOf
                        [ succeed
                            (\truthValue line ->
                                case truthValue of
@ -2557,16 +2559,21 @@ trueFalseBlocContentParser feedback =
                            )
                            |= getChompedString
                                (succeed ()
-                            |. chompIf ((/=) '*') EndOfFile
-                            |. chompWhile ((/=) '\n')
+                                    |. (if numberOfSpaces == 0 then
+                                            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