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