From 7b26d5d9186fafce8567fe900218b88182ae7cdd Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Wed, 28 Aug 2019 16:20:19 +0000 Subject: [PATCH] Use 'context' for Commit's repo, instead of 'repository' --- src/Web/ActivityPub.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Web/ActivityPub.hs b/src/Web/ActivityPub.hs index 30d668a..179d19c 100644 --- a/src/Web/ActivityPub.hs +++ b/src/Web/ActivityPub.hs @@ -896,7 +896,7 @@ instance ActivityPub Commit where ObjURI a id_ <- o .: "id" fmap (a,) $ Commit id_ - <$> withAuthorityO a (o .: "repository") + <$> withAuthorityO a (o .: "context") <*> o .:+ "attributedTo" <*> o .:+? "committedBy" <*> o .: "name" @@ -909,7 +909,7 @@ instance ActivityPub Commit where (Commit id_ repo author committer title hash mdesc written mcommitted) = "id" .= ObjURI authority id_ <> "type" .= ("Commit" :: Text) - <> "repository" .= ObjURI authority repo + <> "context " .= ObjURI authority repo <> "attributedTo" .=+ author <> "committedBy" .=+? committer <> "name" .= title