sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 09:44:51 +09:00
Code Issues Activity

Use 'context' for Commit's repo, instead of 'repository'

Browse source
This commit is contained in:
fr33domlover 2019-08-28 16:20:19 +00:00
parent d4d45c6fe7
commit 7b26d5d918
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Web/ActivityPub.hs
View file

@ -896,7 +896,7 @@ instance ActivityPub Commit where
ObjURI a id_ <- o .: "id" ObjURI a id_ <- o .: "id"
fmap (a,) $ fmap (a,) $
Commit id_ Commit id_
<$> withAuthorityO a (o .: "repository") <$> withAuthorityO a (o .: "context")
<*> o .:+ "attributedTo" <*> o .:+ "attributedTo"
<*> o .:+? "committedBy" <*> o .:+? "committedBy"
<*> o .: "name" <*> o .: "name"
@ -909,7 +909,7 @@ instance ActivityPub Commit where
(Commit id_ repo author committer title hash mdesc written mcommitted) (Commit id_ repo author committer title hash mdesc written mcommitted)
= "id" .= ObjURI authority id_ = "id" .= ObjURI authority id_
<> "type" .= ("Commit" :: Text) <> "type" .= ("Commit" :: Text)
<> "repository" .= ObjURI authority repo <> "context " .= ObjURI authority repo
<> "attributedTo" .=+ author <> "attributedTo" .=+ author
<> "committedBy" .=+? committer <> "committedBy" .=+? committer
<> "name" .= title <> "name" .= title