forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Define breadcrumbs for TicketTeamR and TicketParticipantsR

Browse source
This commit is contained in:
fr33domlover 2019-05-26 10:32:56 +00:00
parent 7869af7334
commit 18e9c16afb
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Foundation.hs
View file

@ -898,5 +898,11 @@ instance YesodBreadcrumbs App where
TicketReverseDepsR shr prj num -> ( "Dependants" TicketReverseDepsR shr prj num -> ( "Dependants"
, Just $ TicketR shr prj num , 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) WikiPageR shr prj _page -> ("Wiki", Just $ ProjectR shr prj)