From 9689e9d471e6e2cf63c9b45147430802d42c7d6f Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 25 May 2019 20:24:13 +0000
Subject: [PATCH] Fix redirection bug in SharerInboxR

---
 src/Vervis/Handler/Inbox.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index 3ab0e9f..c67e4e6 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -150,7 +150,7 @@ getSharerInboxR shr = do
         getPageAndNavCount
             (countItems pid)
             (\ off lim -> map adaptItem <$> getItems pid off lim)
-    let here = OutboxR shr
+    let here = SharerInboxR shr
     encodeRouteLocal <- getEncodeRouteLocal
     encodeRoutePageLocal <- getEncodeRoutePageLocal
     let pageUrl = encodeRoutePageLocal here