From 18e9c16afb9bcfca7d8ac53dc3c0e7f94ea938f9 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Sun, 26 May 2019 10:32:56 +0000 Subject: [PATCH] Define breadcrumbs for TicketTeamR and TicketParticipantsR --- src/Vervis/Foundation.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index 4595a3b..8ec8b52 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -898,5 +898,11 @@ instance YesodBreadcrumbs App where TicketReverseDepsR shr prj num -> ( "Dependants" , Just $ TicketR shr prj num ) + TicketParticipantsR shr prj num -> ( "Participants" + , Just $ TicketR shr prj num + ) + TicketTeamR shr prj num -> ( "Team" + , Just $ TicketR shr prj num + ) WikiPageR shr prj _page -> ("Wiki", Just $ ProjectR shr prj)