sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 15:24:51 +09:00
Code Issues Activity

Fix breadcrumb of TicketMessageR

Browse source
This commit is contained in:
fr33domlover 2019-05-05 21:02:26 +00:00
parent 25a8ea6b8b
commit 6bba8ff47f
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Vervis/Foundation.hs
View file

@ -837,9 +837,9 @@ instance YesodBreadcrumbs App where
TicketDiscussionR shar proj num -> ( "Discussion" TicketDiscussionR shar proj num -> ( "Discussion"
, Just $ TicketR shar proj num , Just $ TicketR shar proj num
) )
TicketMessageR shar proj t c -> ( T.pack $ '#' : show c TicketMessageR shr prj num mkhid -> ( "#" <> keyHashidText mkhid
, Just $ , Just $
TicketDiscussionR shar proj t TicketDiscussionR shr prj num
) )
TicketTopReplyR shar proj num -> ( "New topic" TicketTopReplyR shar proj num -> ( "New topic"
, Just $ , Just $