sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 11:04:53 +09:00
Code Issues Activity

Change some top-level routes' breadcrumbs to be under HomeR

Browse source
This commit is contained in:
fr33domlover 2019-03-22 05:17:58 +00:00
parent c27636a438
commit 6c186355f3
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Vervis/Foundation.hs
View file

@ -766,8 +766,8 @@ instance YesodBreadcrumbs App where
RobotsR -> ("", Nothing) RobotsR -> ("", Nothing)
PublishR -> ("Publish", Just HomeR) PublishR -> ("Publish", Just HomeR)
InboxR -> ("Inbox", Nothing) InboxR -> ("Inbox", Just HomeR)
OutboxR -> ("Outbox", Nothing) OutboxR -> ("Outbox", Just HomeR)
ActorKey1R -> ("Actor Key 1", Nothing) ActorKey1R -> ("Actor Key 1", Nothing)
ActorKey2R -> ("Actor Key 2", Nothing) ActorKey2R -> ("Actor Key 2", Nothing)
@ -775,7 +775,7 @@ instance YesodBreadcrumbs App where
ResendVerifyEmailR -> ( "Resend verification email" ResendVerifyEmailR -> ( "Resend verification email"
, Nothing , Nothing
) )
AuthR _ -> ("Auth", Nothing) AuthR _ -> ("Auth", Just HomeR)
SharersR -> ("Sharers", Just HomeR) SharersR -> ("Sharers", Just HomeR)
SharerR shar -> (shr2text shar, Just SharersR) SharerR shar -> (shr2text shar, Just SharersR)