module Web.View.Hubs.Index where import Web.Types import Generated.Types import IHP.Prelude import IHP.ViewPrelude import Web.Routes () data IndexView = IndexView { hubs :: ![Hub] } instance View IndexView where html IndexView { .. } = [hsx|

Hubs

New Hub
{forEach hubs renderHub}
Name Slug Domain Kind
|] kindBadge :: Text -> Html kindBadge "framework" = [hsx|framework|] kindBadge "shared" = [hsx|shared|] kindBadge _ = [hsx|domain|] renderHub :: Hub -> Html renderHub hub = [hsx| {hub.name} {hub.slug} {hub.domain} {kindBadge hub.hubKind} Edit Delete |]