When delivering activities, sign the Digest header

Looks like I forgot to add it to the list of headers to sign
This commit is contained in:
fr33domlover 2019-05-09 21:26:33 +00:00
parent ddb6bb0472
commit 273fcf972f

View file

@ -654,7 +654,7 @@ instance YesodRemoteActorStore App where
instance YesodActivityPub App where instance YesodActivityPub App where
sitePostSignedHeaders _ = sitePostSignedHeaders _ =
hRequestTarget :| [hHost, hDate, hActivityPubActor] hRequestTarget :| [hHost, hDate, hDigest, hActivityPubActor]
siteGetHttpSign = do siteGetHttpSign = do
(akey1, akey2, new1) <- liftIO . readTVarIO =<< asksSite appActorKeys (akey1, akey2, new1) <- liftIO . readTVarIO =<< asksSite appActorKeys
renderUrl <- askUrlRender renderUrl <- askUrlRender