sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-27 19:14:51 +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 /publish PublishR GET POST
/inbox InboxR GET /inbox InboxDebugR GET
/akey1 ActorKey1R GET /akey1 ActorKey1R GET
/akey2 ActorKey2R GET /akey2 ActorKey2R GET

2
src/Vervis/Foundation.hs
View file

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

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

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