Rename InboxR to InboxDebugR, much clearer that way

config/routes

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

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

src/Vervis/Handler/Inbox.hs

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