From d392a3770758aad8f3d15d7e2efbf3e13a4f4e46 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 2 Jul 2020 13:34:38 +0000
Subject: [PATCH] Rename InboxR to InboxDebugR, much clearer that way

---
 config/routes               | 2 +-
 src/Vervis/Foundation.hs    | 2 +-
 src/Vervis/Handler/Inbox.hs | 8 ++++----
 3 files changed, 6 insertions(+), 6 deletions(-)

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