NOTE: Federation is disabled on this instance!
You can test federation between the following instances:forge.angeley.es
code.angeley.es
By | fr33domlover |
At | 2020-07-23 |
Title | Web.ActivityPub: Add a Resolve activity |
Description |
Edit file src/Web/ActivityPub.hs 0 → 0
+ | 69 | , Resolve (..) |
|
… | … | … | … |
+ | 1337 | data Resolve u = Resolve |
|
+ | 1338 | { resolveObject :: ObjURI u |
|
+ | 1339 | } |
|
+ | 1340 | ||
+ | 1341 | parseResolve :: UriMode u => Object -> Parser (Resolve u) |
|
+ | 1342 | parseResolve o = Resolve <$> o .: "object" |
|
+ | 1343 | ||
+ | 1344 | encodeResolve :: UriMode u => Resolve u -> Series |
|
+ | 1345 | encodeResolve (Resolve obj) = "object" .= obj |
|
+ | 1346 | ||
… | … | … | … |
+ | 1374 | | ResolveActivity (Resolve u) |
|
… | … | … | … |
- | 1387 | "Accept" -> AcceptActivity <$> parseAccept a o |
|
- | 1388 | "Create" -> CreateActivity <$> parseCreate o a actor |
|
- | 1389 | "Follow" -> FollowActivity <$> parseFollow o |
|
- | 1390 | "Offer" -> OfferActivity <$> parseOffer o a actor |
|
- | 1391 | "Push" -> PushActivity <$> parsePush a o |
|
- | 1392 | "Reject" -> RejectActivity <$> parseReject o |
|
- | 1393 | "Undo" -> UndoActivity <$> parseUndo a o |
|
+ | 1399 | "Accept" -> AcceptActivity <$> parseAccept a o |
|
+ | 1400 | "Create" -> CreateActivity <$> parseCreate o a actor |
|
+ | 1401 | "Follow" -> FollowActivity <$> parseFollow o |
|
+ | 1402 | "Offer" -> OfferActivity <$> parseOffer o a actor |
|
+ | 1403 | "Push" -> PushActivity <$> parsePush a o |
|
+ | 1404 | "Reject" -> RejectActivity <$> parseReject o |
|
+ | 1405 | "Resolve" -> ResolveActivity <$> parseResolve o |
|
+ | 1406 | "Undo" -> UndoActivity <$> parseUndo a o |
|
… | … | … | … |
- | 1407 | activityType (AcceptActivity _) = "Accept" |
|
- | 1408 | activityType (CreateActivity _) = "Create" |
|
- | 1409 | activityType (FollowActivity _) = "Follow" |
|
- | 1410 | activityType (OfferActivity _) = "Offer" |
|
- | 1411 | activityType (PushActivity _) = "Push" |
|
- | 1412 | activityType (RejectActivity _) = "Reject" |
|
- | 1413 | activityType (UndoActivity _) = "Undo" |
|
- | 1414 | encodeSpecific h _ (AcceptActivity a) = encodeAccept h a |
|
- | 1415 | encodeSpecific h u (CreateActivity a) = encodeCreate h u a |
|
- | 1416 | encodeSpecific _ _ (FollowActivity a) = encodeFollow a |
|
- | 1417 | encodeSpecific h u (OfferActivity a) = encodeOffer h u a |
|
- | 1418 | encodeSpecific h _ (PushActivity a) = encodePush h a |
|
- | 1419 | encodeSpecific _ _ (RejectActivity a) = encodeReject a |
|
- | 1420 | encodeSpecific h _ (UndoActivity a) = encodeUndo h a |
|
+ | 1420 | activityType (AcceptActivity _) = "Accept" |
|
+ | 1421 | activityType (CreateActivity _) = "Create" |
|
+ | 1422 | activityType (FollowActivity _) = "Follow" |
|
+ | 1423 | activityType (OfferActivity _) = "Offer" |
|
+ | 1424 | activityType (PushActivity _) = "Push" |
|
+ | 1425 | activityType (RejectActivity _) = "Reject" |
|
+ | 1426 | activityType (ResolveActivity _) = "Resolve" |
|
+ | 1427 | activityType (UndoActivity _) = "Undo" |
|
+ | 1428 | encodeSpecific h _ (AcceptActivity a) = encodeAccept h a |
|
+ | 1429 | encodeSpecific h u (CreateActivity a) = encodeCreate h u a |
|
+ | 1430 | encodeSpecific _ _ (FollowActivity a) = encodeFollow a |
|
+ | 1431 | encodeSpecific h u (OfferActivity a) = encodeOffer h u a |
|
+ | 1432 | encodeSpecific h _ (PushActivity a) = encodePush h a |
|
+ | 1433 | encodeSpecific _ _ (RejectActivity a) = encodeReject a |
|
+ | 1434 | encodeSpecific _ _ (ResolveActivity a) = encodeResolve a |
|
+ | 1435 | encodeSpecific h _ (UndoActivity a) = encodeUndo h a |
|
… | … | … | … |