Fix hamlet

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