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