diff --git a/src/Vervis/Federation/Collab.hs b/src/Vervis/Federation/Collab.hs deleted file mode 100644 index a8c2544..0000000 --- a/src/Vervis/Federation/Collab.hs +++ /dev/null @@ -1,150 +0,0 @@ -{- This file is part of Vervis. - - - - Written in 2022, 2023 by fr33domlover . - - - - ♡ Copying is an act of love. Please copy, reuse and share. - - - - The author(s) have dedicated all copyright and related and neighboring - - rights to this software to the public domain worldwide. This software is - - distributed without any warranty. - - - - You should have received a copy of the CC0 Public Domain Dedication along - - with this software. If not, see - - . - -} - -{-# LANGUAGE RankNTypes #-} - -module Vervis.Federation.Collab - ( --personInviteF - --topicInviteF - - -- repoJoinF - --, deckJoinF - --, loomJoinF - - --, repoAcceptF - --, deckAcceptF - --, loomAcceptF - - --, personGrantF - ) -where - -import Control.Applicative -import Control.Exception hiding (Handler) -import Control.Monad -import Control.Monad.IO.Class -import Control.Monad.Trans.Class -import Control.Monad.Trans.Except -import Control.Monad.Trans.Maybe -import Control.Monad.Trans.Reader -import Data.Barbie -import Data.Bifunctor -import Data.Bitraversable -import Data.ByteString (ByteString) -import Data.Either -import Data.Foldable -import Data.Functor.Identity -import Data.List.NonEmpty (NonEmpty) -import Data.Maybe -import Data.Text (Text) -import Data.Time.Clock -import Data.Traversable -import Database.Persist -import Database.Persist.Sql -import Yesod.Persist.Core - -import qualified Data.ByteString.Lazy as BL -import qualified Data.Text as T - -import Database.Persist.JSON -import Development.PatchMediaType -import Network.FedURI -import Yesod.ActivityPub -import Yesod.FedURI -import Yesod.Hashids -import Yesod.MonadSite - -import qualified Web.ActivityPub as AP - -import Control.Monad.Trans.Except.Local -import Data.Either.Local -import Data.Tuple.Local -import Database.Persist.Local -import Yesod.Persist.Local - -import Vervis.Access -import Vervis.ActivityPub -import Vervis.Actor (RemoteAuthor (..), ActivityBody (..)) -import Vervis.Data.Actor -import Vervis.Data.Collab -import Vervis.Web.Delivery -import Vervis.FedURI -import Vervis.Federation.Auth -import Vervis.Federation.Util -import Vervis.Foundation -import Vervis.Model -import Vervis.Persist.Actor -import Vervis.Persist.Collab -import Vervis.Recipient -import Vervis.RemoteActorStore - -{- -repoJoinF - :: UTCTime - -> KeyHashid Repo - -> RemoteAuthor - -> ActivityBody - -> Maybe (RecipientRoutes, ByteString) - -> LocalURI - -> AP.Join URIMode - -> ExceptT Text Handler (Text, Maybe (ExceptT Text Worker Text)) -repoJoinF = topicJoinF repoActor GrantResourceRepo - -deckJoinF - :: UTCTime - -> KeyHashid Deck - -> RemoteAuthor - -> ActivityBody - -> Maybe (RecipientRoutes, ByteString) - -> LocalURI - -> AP.Join URIMode - -> ExceptT Text Handler (Text, Maybe (ExceptT Text Worker Text)) -deckJoinF = topicJoinF deckActor GrantResourceDeck - -loomJoinF - :: UTCTime - -> KeyHashid Loom - -> RemoteAuthor - -> ActivityBody - -> Maybe (RecipientRoutes, ByteString) - -> LocalURI - -> AP.Join URIMode - -> ExceptT Text Handler (Text, Maybe (ExceptT Text Worker Text)) -loomJoinF = topicJoinF loomActor GrantResourceLoom --} - -{- -repoAcceptF - :: UTCTime - -> KeyHashid Repo - -> RemoteAuthor - -> ActivityBody - -> Maybe (RecipientRoutes, ByteString) - -> LocalURI - -> AP.Accept URIMode - -> ExceptT Text Handler (Text, Maybe (ExceptT Text Worker Text)) -repoAcceptF = topicAcceptF repoActor GrantResourceRepo - -loomAcceptF - :: UTCTime - -> KeyHashid Loom - -> RemoteAuthor - -> ActivityBody - -> Maybe (RecipientRoutes, ByteString) - -> LocalURI - -> AP.Accept URIMode - -> ExceptT Text Handler (Text, Maybe (ExceptT Text Worker Text)) -loomAcceptF = topicAcceptF loomActor GrantResourceLoom --} diff --git a/src/Vervis/Handler/Deck.hs b/src/Vervis/Handler/Deck.hs index fa8bd14..0be9469 100644 --- a/src/Vervis/Handler/Deck.hs +++ b/src/Vervis/Handler/Deck.hs @@ -109,7 +109,6 @@ import Yesod.Persist.Local import Vervis.Access import Vervis.API import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Discussion import Vervis.Federation.Offer import Vervis.Federation.Ticket diff --git a/src/Vervis/Handler/Group.hs b/src/Vervis/Handler/Group.hs index 691f18b..6950bdb 100644 --- a/src/Vervis/Handler/Group.hs +++ b/src/Vervis/Handler/Group.hs @@ -94,7 +94,6 @@ import Vervis.Access import Vervis.API import Vervis.Data.Collab import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Discussion import Vervis.Federation.Offer import Vervis.Federation.Ticket diff --git a/src/Vervis/Handler/Loom.hs b/src/Vervis/Handler/Loom.hs index 65b7e9e..bbf075c 100644 --- a/src/Vervis/Handler/Loom.hs +++ b/src/Vervis/Handler/Loom.hs @@ -78,7 +78,6 @@ import Yesod.Persist.Local import Vervis.Access import Vervis.API import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Discussion import Vervis.Federation.Offer import Vervis.Federation.Ticket diff --git a/src/Vervis/Handler/Person.hs b/src/Vervis/Handler/Person.hs index b89f652..e80a72c 100644 --- a/src/Vervis/Handler/Person.hs +++ b/src/Vervis/Handler/Person.hs @@ -73,7 +73,6 @@ import Vervis.ActivityPub import Vervis.API import Vervis.Data.Actor import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Discussion import Vervis.Federation.Offer import Vervis.FedURI diff --git a/src/Vervis/Handler/Project.hs b/src/Vervis/Handler/Project.hs index 3a43242..9473a1d 100644 --- a/src/Vervis/Handler/Project.hs +++ b/src/Vervis/Handler/Project.hs @@ -90,7 +90,6 @@ import Vervis.Access import Vervis.API import Vervis.Data.Collab import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Discussion import Vervis.Federation.Offer import Vervis.Federation.Ticket diff --git a/src/Vervis/Handler/Repo.hs b/src/Vervis/Handler/Repo.hs index 9bb50b4..762bcae 100644 --- a/src/Vervis/Handler/Repo.hs +++ b/src/Vervis/Handler/Repo.hs @@ -165,7 +165,6 @@ import Vervis.Access import Vervis.ActivityPub import Vervis.API import Vervis.Federation.Auth -import Vervis.Federation.Collab import Vervis.Federation.Offer import Vervis.FedURI import Vervis.Form.Repo diff --git a/vervis.cabal b/vervis.cabal index 0286bde..f9280f3 100644 --- a/vervis.cabal +++ b/vervis.cabal @@ -171,7 +171,6 @@ library --Vervis.Federation Vervis.Federation.Auth - Vervis.Federation.Collab Vervis.Federation.Discussion Vervis.Federation.Offer --Vervis.Federation.Push