Remove old empty Vervis.Federation.Collab module

src/Vervis/Federation/Collab.hs

@@ -1,150 +0,0 @@
-{- This file is part of Vervis.
- -
- - Written in 2022, 2023 by fr33domlover <fr33domlover@riseup.net>.
- -
- - ♡ 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
- - <http://creativecommons.org/publicdomain/zero/1.0/>.
- -}
-
-{-# 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
--}

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

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

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

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

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

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

vervis.cabal

@@ -171,7 +171,6 @@ library
 
                        --Vervis.Federation
                        Vervis.Federation.Auth
-                       Vervis.Federation.Collab
                        Vervis.Federation.Discussion
                        Vervis.Federation.Offer
                        --Vervis.Federation.Push