From 97594dc945b5455daf293d7b1831acf147b65050 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Mon, 4 Mar 2019 20:12:19 +0000
Subject: [PATCH] Fix default actor URI in OutboxR form, from /p to /s

---
 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 9329333..f4b682e 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -175,7 +175,7 @@ activityForm = renderDivs $ (,)
     <$> areq fedUriField "To"      (Just defto)
     <*> areq textField   "Message" (Just defmsg)
     where
-    defto = FedURI "forge.angeley.es" "/p/fr33" ""
+    defto = FedURI "forge.angeley.es" "/s/fr33" ""
     defmsg = "Hi! Nice to meet you :)"
 
 activityWidget :: Widget -> Enctype -> Widget