Rename InboxR to InboxDebugR, much clearer that way
This commit is contained in:
parent
5d25aba239
commit
d392a37707
3 changed files with 6 additions and 6 deletions
|
@ -33,7 +33,7 @@
|
||||||
-- ----------------------------------------------------------------------------
|
-- ----------------------------------------------------------------------------
|
||||||
|
|
||||||
/publish PublishR GET POST
|
/publish PublishR GET POST
|
||||||
/inbox InboxR GET
|
/inbox InboxDebugR GET
|
||||||
/akey1 ActorKey1R GET
|
/akey1 ActorKey1R GET
|
||||||
/akey2 ActorKey2R GET
|
/akey2 ActorKey2R GET
|
||||||
|
|
||||||
|
|
|
@ -754,7 +754,7 @@ instance YesodBreadcrumbs App where
|
||||||
RobotsR -> ("", Nothing)
|
RobotsR -> ("", Nothing)
|
||||||
|
|
||||||
PublishR -> ("Publish", Just HomeR)
|
PublishR -> ("Publish", Just HomeR)
|
||||||
InboxR -> ("Inbox", Just HomeR)
|
InboxDebugR -> ("Inbox Debug", Just HomeR)
|
||||||
SharerOutboxR shr -> ("Outbox", Just $ SharerR shr)
|
SharerOutboxR shr -> ("Outbox", Just $ SharerR shr)
|
||||||
SharerOutboxItemR shr hid -> ( "#" <> keyHashidText hid
|
SharerOutboxItemR shr hid -> ( "#" <> keyHashidText hid
|
||||||
, Just $ SharerOutboxR shr
|
, Just $ SharerOutboxR shr
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
{- This file is part of Vervis.
|
{- This file is part of Vervis.
|
||||||
-
|
-
|
||||||
- Written in 2019 by fr33domlover <fr33domlover@riseup.net>.
|
- Written in 2019, 2020 by fr33domlover <fr33domlover@riseup.net>.
|
||||||
-
|
-
|
||||||
- ♡ Copying is an act of love. Please copy, reuse and share.
|
- ♡ Copying is an act of love. Please copy, reuse and share.
|
||||||
-
|
-
|
||||||
|
@ -14,7 +14,7 @@
|
||||||
-}
|
-}
|
||||||
|
|
||||||
module Vervis.Handler.Inbox
|
module Vervis.Handler.Inbox
|
||||||
( getInboxR
|
( getInboxDebugR
|
||||||
, getSharerInboxR
|
, getSharerInboxR
|
||||||
, getProjectInboxR
|
, getProjectInboxR
|
||||||
, getRepoInboxR
|
, getRepoInboxR
|
||||||
|
@ -123,8 +123,8 @@ objectId o =
|
||||||
Just (String t) | not (T.null t) -> t
|
Just (String t) | not (T.null t) -> t
|
||||||
_ -> error "'id' field not found"
|
_ -> error "'id' field not found"
|
||||||
|
|
||||||
getInboxR :: Handler Html
|
getInboxDebugR :: Handler Html
|
||||||
getInboxR = do
|
getInboxDebugR = do
|
||||||
acts <-
|
acts <-
|
||||||
liftIO . readTVarIO . snd =<< maybe notFound return =<< getsYesod appActivities
|
liftIO . readTVarIO . snd =<< maybe notFound return =<< getsYesod appActivities
|
||||||
defaultLayout
|
defaultLayout
|
||||||
|
|
Loading…
Reference in a new issue