Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Software
Surver
Commits
b2c15fbd
Commit
b2c15fbd
authored
Feb 21, 2021
by
Nicolas Lenz
Browse files
Fix hamlet
parent
b906b215
Pipeline
#868
passed with stages
in 5 minutes and 40 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
src/Form.hs
View file @
b2c15fbd
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment