The Type-safe Web Framework for Builders

action UsersAction = do

    -- Fetch 10 users ordered by firstname
    users <- query @User
        |> orderBy #firstname
        |> limit 10
        |> fetch

    render IndexView { .. }

-- The autoRefresh keyword makes the action realtime
-- No app-specific JS needed
--                        ↘↘↘
action MessagesAction = autoRefresh do
    messages <- query @Message
        |> orderBy #createdAt
        |> fetch

    render IndexView { .. }

instance View NewView where
    html NewView { .. } = [hsx|
        <h1>New Comment</h1>

        {renderForm comment}
    |]

renderForm comment = formFor comment [hsx|
    {hiddenField #threadId}

    {(textareaField #body) {
        fieldLabel = "Your Comment:",
        helpText = "You can use markdown here."
    }}

    <p>
        <!-- Use any HTML inside your forms -->
        Please double check your comment
        for spelling mistakes.
    </p>

    {submitButton}
|]

action CreateCommentAction = do
    let comment = newRecord @Comment

    comment
        |> fill @["body", "threadId"]
        |> set #userId currentUserId

        -- Actual validation here
        |> validateField #body nonEmpty
        |> validateField #threadId nonEmpty

        |> ifValid \case
            -- Validation Failed -> Render form + errors
            Left comment -> render NewView { .. }

            -- Validation Good
            Right comment -> do

                -- Insert comment to DB
                comment <- comment |> createRecord

                let commentId = get #id comment

                -- Redirect to comment
                redirectTo ShowCommentAction { commentId }