diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index 688949a..a806063 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -766,8 +766,8 @@ instance YesodBreadcrumbs App where RobotsR -> ("", Nothing) PublishR -> ("Publish", Just HomeR) - InboxR -> ("Inbox", Nothing) - OutboxR -> ("Outbox", Nothing) + InboxR -> ("Inbox", Just HomeR) + OutboxR -> ("Outbox", Just HomeR) ActorKey1R -> ("Actor Key 1", Nothing) ActorKey2R -> ("Actor Key 2", Nothing) @@ -775,7 +775,7 @@ instance YesodBreadcrumbs App where ResendVerifyEmailR -> ( "Resend verification email" , Nothing ) - AuthR _ -> ("Auth", Nothing) + AuthR _ -> ("Auth", Just HomeR) SharersR -> ("Sharers", Just HomeR) SharerR shar -> (shr2text shar, Just SharersR)