solutionForm :: UserId -> Form EulerSolution
solutionForm userId = renderBootstrap3 BootstrapBasicForm $ EulerSolution
    <$> pure userId
    <*> (ProblemNumber <$> areq intField "Problem Number" Nothing)
    <*> areq intField "Solution" Nothing
    <*> (unTextarea <$> areq textareaField "Markdown" Nothing)
    <*> pure Nothing
solutionForm :: UserId -> Form EulerSolution
solutionForm userId = renderBootstrap3 BootstrapBasicForm $ EulerSolution
    <$> pure userId
    <*> (ProblemNumber <$> areq intField "Problem Number" Nothing)
    <*> areq intField "Solution" Nothing
    <*> (unTextarea <$> areq textareaField "Markdown" Nothing)
    <*> pure Nothing
solutionForm userId = renderBootstrap3 BootstrapBasicForm $ EulerSolution
    <$> pure userId
    <*> (ProblemNumber <$> areq intField "Problem Number" Nothing)
    <*> areq intField "Solution" Nothing
    <*> (unTextarea <$> areq textareaField "Markdown" Nothing)
    <*> pure Nothing