module Web.View.HubRoutingRules.RoutedCandidates where import Web.View.Prelude import Web.Routes () data RoutedCandidatesView = RoutedCandidatesView { hub :: !Hub , candidates :: ![RequirementCandidate] } instance View RoutedCandidatesView where html RoutedCandidatesView { .. } = [hsx|
Routing Rules /

Routed In: {hub.name}

Requirement candidates routed to this hub from other hubs.

{renderRoutedCandidates candidates} |] renderRoutedCandidates :: [RequirementCandidate] -> Html renderRoutedCandidates [] = [hsx|

No candidates routed to this hub yet.

|] renderRoutedCandidates candidates = [hsx|
{forEach candidates renderCandidateRow}
Summary Category Status Created
|] renderCandidateRow :: RequirementCandidate -> Html renderCandidateRow c = [hsx| {c.title} {c.category} {c.status} {show c.createdAt} View |]