diff --git a/config/routes b/config/routes index db5d3d6..bfc14cb 100644 --- a/config/routes +++ b/config/routes @@ -33,7 +33,7 @@ -- ---------------------------------------------------------------------------- /publish PublishR GET POST -/inbox InboxR GET +/inbox InboxDebugR GET /akey1 ActorKey1R GET /akey2 ActorKey2R GET diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index 73de860..0cde114 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -754,7 +754,7 @@ instance YesodBreadcrumbs App where RobotsR -> ("", Nothing) PublishR -> ("Publish", Just HomeR) - InboxR -> ("Inbox", Just HomeR) + InboxDebugR -> ("Inbox Debug", Just HomeR) SharerOutboxR shr -> ("Outbox", Just $ SharerR shr) SharerOutboxItemR shr hid -> ( "#" <> keyHashidText hid , Just $ SharerOutboxR shr diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs index aff21ff..12fee61 100644 --- a/src/Vervis/Handler/Inbox.hs +++ b/src/Vervis/Handler/Inbox.hs @@ -1,6 +1,6 @@ {- This file is part of Vervis. - - - Written in 2019 by fr33domlover . + - Written in 2019, 2020 by fr33domlover . - - ♡ Copying is an act of love. Please copy, reuse and share. - @@ -14,7 +14,7 @@ -} module Vervis.Handler.Inbox - ( getInboxR + ( getInboxDebugR , getSharerInboxR , getProjectInboxR , getRepoInboxR @@ -123,8 +123,8 @@ objectId o = Just (String t) | not (T.null t) -> t _ -> error "'id' field not found" -getInboxR :: Handler Html -getInboxR = do +getInboxDebugR :: Handler Html +getInboxDebugR = do acts <- liftIO . readTVarIO . snd =<< maybe notFound return =<< getsYesod appActivities defaultLayout