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|
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|| Summary | Category | Status | Created |
|---|