diff --git a/src/Vervis/Handler/Person.hs b/src/Vervis/Handler/Person.hs index 9d3c6bd..c64b692 100644 --- a/src/Vervis/Handler/Person.hs +++ b/src/Vervis/Handler/Person.hs @@ -301,13 +301,17 @@ postPersonOutboxR personHash = do applyC eperson sharer summary audience mcap apply FollowActivity follow -> followC shr summary audience follow - OfferActivity (Offer obj target) -> + -} + AP.OfferActivity (AP.Offer obj target) -> case obj of - OfferTicket ticket -> - offerTicketC eperson sharer summary audience ticket target + AP.OfferTicket ticket -> + offerTicketC eperson actorDB summary audience ticket target + {- OfferDep dep -> offerDepC eperson sharer summary audience dep target + -} _ -> throwE "Unsupported Offer 'object' type" + {- ResolveActivity resolve -> resolveC eperson sharer summary audience resolve UndoActivity undo ->