sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:44:52 +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"
, Just $ TicketR shar proj num
)
TicketMessageR shar proj t c -> ( T.pack $ '#' : show c
TicketMessageR shr prj num mkhid -> ( "#" <> keyHashidText mkhid
, Just $
TicketDiscussionR shar proj t
TicketDiscussionR shr prj num
)
TicketTopReplyR shar proj num -> ( "New topic"
, Just $