sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 19:34:52 +09:00
Code Issues Activity

Rename InboxR to InboxDebugR, much clearer that way

Browse source
This commit is contained in:
fr33domlover 2020-07-02 13:34:38 +00:00
parent 5d25aba239
commit d392a37707
3 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
config/routes
View file

@ -33,7 +33,7 @@
-- ----------------------------------------------------------------------------
/publish PublishR GET POST
/inbox InboxR GET
/inbox InboxDebugR GET
/akey1 ActorKey1R GET
/akey2 ActorKey2R GET

2
src/Vervis/Foundation.hs
View file

@ -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

8
src/Vervis/Handler/Inbox.hs
View file

@ -1,6 +1,6 @@
{- 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.
-
@ -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