From 6bba8ff47febb3ceab1fd97ff9148c107030f821 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 5 May 2019 21:02:26 +0000
Subject: [PATCH] Fix breadcrumb of TicketMessageR

---
 src/Vervis/Foundation.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 21c3b44..9eab741 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -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 $