Commit b2c15fbd authored by Nicolas Lenz's avatar Nicolas Lenz
Browse files

Fix hamlet

parent b906b215
Pipeline #868 passed with stages
in 5 minutes and 40 seconds
......@@ -34,11 +34,10 @@ postFormR :: Text -> Handler Html
postFormR id = case lookup id cf of
Just ConfigFormSurvey{..} -> do
result <- runInputPost $ traverseWithKey surveyQuestion configFormSurveyQuestions
--let result = "Test"
defaultLayout [whamlet|<p>${show result}|]
defaultLayout [whamlet|<p>#{show result}|]
Just ConfigFormQuiz{..} -> do
result <- runInputPost $ traverseWithKey quizQuestion configFormQuizQuestions
defaultLayout [whamlet|<p>${show result}|]
defaultLayout [whamlet|<p>#{show result}|]
Nothing -> defaultLayout [whamlet|<p>Oops.|]
surveyQuestion :: Text -> ConfigFormSurveyQuestion -> FormInput Handler Answer
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment