diff --git a/src/Vervis/Actor/Project.hs b/src/Vervis/Actor/Project.hs index 3b23f48..5477bfb 100644 --- a/src/Vervis/Actor/Project.hs +++ b/src/Vervis/Actor/Project.hs @@ -881,12 +881,14 @@ projectAccept now projectID (Verse authorIdMsig body) accept = do -- Record my collaborator's Accept -- Prepare to send delegator-Grant Right () -> Just <$> do + {- case (topic, acceptDB) of (Left (localID, _), Left (_, _, acceptID)) -> - insert_ $ SourceThemAcceptLocal localID acceptID + insert_ $ ? localID acceptID (Right (remoteID, _), Right (_, _, acceptID)) -> - insert_ $ SourceThemAcceptRemote remoteID acceptID + insert_ $ ? remoteID acceptID _ -> error "projectAccept impossible iv" + -} grantID <- insertEmptyOutboxItem' (actorOutbox recipActor) now insert_ $ SourceUsSendDelegator sourceID grantID return (topic, grantID)