Fix hamlet

b2c15fbd · Nicolas Lenz · b906b215 · b2c15fbd
Commit b2c15fbd authored Feb 21, 2021 by Nicolas Lenz ❄
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 3 deletions

src/Form.hs src/Form.hs +2 -3

No files found.
--- a/src/Form.hs
+++ b/src/Form.hs
@@ -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