From 9d5399d636353ec58ee1ee8e474ccefc5a72bfbc Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Fri, 26 Apr 2019 13:04:00 +0000
Subject: [PATCH] Give project actors signing keys, just like user actors,
 needed for forwarding

Since project actors are the ones sending inbox forwards, they need to announce
keys and allow their HTTP Signatures to be verified.
---
 src/Vervis/Handler/Project.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/Vervis/Handler/Project.hs b/src/Vervis/Handler/Project.hs
index 0265dff..9bd2fde 100644
--- a/src/Vervis/Handler/Project.hs
+++ b/src/Vervis/Handler/Project.hs
@@ -140,7 +140,10 @@ getProjectR shar proj = selectRep $ do
                 Just $ fromMaybe (prj2text proj) $ projectName project
             , actorSummary    = projectDesc project
             , actorInbox      = route2local $ ProjectInboxR shar proj
-            , actorPublicKeys = []
+            , actorPublicKeys =
+                [ Left $ route2local ActorKey1R
+                , Left $ route2local ActorKey2R
+                ]
             }
 
 putProjectR :: ShrIdent -> PrjIdent -> Handler Html