WPB-21964: move conversation creation to wire-subsystems

charts/background-worker/templates/configmap.yaml

@@ -25,6 +25,12 @@ data:
       host: brig
       port: 8080
 
+    {{- if .enableFederation }}
+    federator:
+      host: {{ .federator.host }}
+      port: {{ .federator.port }}
+    {{- end }}
+
     gundeck:
       host: gundeck
       port: 8080
@@ -103,4 +109,4 @@ data:
     {{- if .postgresMigration }}
     postgresMigration: {{- toYaml .postgresMigration | nindent 6 }}
     {{- end }}
-  {{- end }}
+  {{- end }}

charts/background-worker/values.yaml

@@ -19,6 +19,9 @@ config:
   logLevel: Info
   logFormat: StructuredJSON
   enableFederation: false # keep in sync with brig, cargohold and galley charts' config.enableFederation as well as wire-server chart's tags.federation
+  federator:
+    host: federator
+    port: 8080
   rabbitmq:
     host: rabbitmq
     port: 5672

libs/galley-types/default.nix

@@ -12,6 +12,7 @@
 , data-default
 , errors
 , gitignoreSource
+, http-types
 , imports
 , lens
 , lib
@@ -21,6 +22,7 @@
 , types-common
 , utf8-string
 , uuid
+, wai-utilities
 , wire-api
 }:
 mkDerivation {
@@ -36,6 +38,7 @@ mkDerivation {
     crypton
     data-default
     errors
+    http-types
     imports
     lens
     memory
@@ -44,6 +47,7 @@ mkDerivation {
     types-common
     utf8-string
     uuid
+    wai-utilities
     wire-api
   ];
   license = lib.licenses.agpl3Only;

libs/galley-types/galley-types.cabal

@@ -14,8 +14,10 @@ library
   -- cabal-fmt: expand src
   exposed-modules:
     Galley.Types
+    Galley.Types.Clients
     Galley.Types.Conversations.One2One
     Galley.Types.Conversations.Roles
+    Galley.Types.Error
     Galley.Types.Teams
 
   other-modules:      Paths_galley_types
@@ -76,6 +78,7 @@ library
     , crypton
     , data-default
     , errors
+    , http-types
     , imports
     , lens                   >=4.12
     , memory
@@ -84,6 +87,7 @@ library
     , types-common           >=0.16
     , utf8-string
     , uuid
+    , wai-utilities
     , wire-api
 
   default-language:   GHC2021

services/galley/src/Galley/API/Error.hs → libs/galley-types/src/Galley/Types/Error.hs

@@ -18,7 +18,7 @@
 -- | Most of the errors thrown by galley are defined as static errors in
 -- 'Wire.API.Error.Galley' and declared as part of the API. Errors defined here
 -- are dynamic, and mostly internal.
-module Galley.API.Error
+module Galley.Types.Error
   ( -- * Internal errors
     InvalidInput (..),
     InternalError (..),

libs/galley-types/src/Galley/Types/Teams.hs

@@ -23,6 +23,7 @@ module Galley.Types.Teams
   ( GetFeatureDefaults (..),
     FeatureDefaults (..),
     FeatureFlags,
+    FanoutLimit,
     featureDefaults,
     notTeamMember,
     findTeamMember,
@@ -40,13 +41,16 @@ import Data.ByteString (toStrict)
 import Data.ByteString.UTF8 qualified as UTF8
 import Data.Default
 import Data.Id (UserId)
+import Data.Range (Range)
 import Data.SOP
 import Data.Set qualified as Set
 import Imports
 import Wire.API.Team.Feature
 import Wire.API.Team.Member
 import Wire.API.Team.Permission
 
+type FanoutLimit = Range 1 HardTruncationLimit Int32
+
 -- | Used to extract the feature config type out of 'FeatureDefaults' or
 -- related types.
 type family ConfigOf a

libs/wire-api/src/Wire/API/Routes/Public/Brig.hs

@@ -1289,7 +1289,7 @@ type ClientAPI =
 -- - MemberJoin event to self and other, if joining an existing connect conversation (via galley)
 -- - ConvCreate event to self, if creating a connect conversation (via galley)
 -- - ConvConnect event to self, in some cases (via galley),
---   for details see 'Galley.API.Create.createConnectConversation'
+--   for details see 'Wire.ConversationSubsystem.Create.createConnectConversation'
 type ConnectionAPI =
   Named
     "create-connection-unqualified"

libs/wire-subsystems/src/Wire/ConversationSubsystem.hs

@@ -43,5 +43,10 @@ data ConversationSubsystem m a where
     ConversationAction (tag :: ConversationActionTag) ->
     ExtraConversationData ->
     ConversationSubsystem r LocalConversationUpdate
+  CreateConversation ::
+    Local ConvId ->
+    Local UserId ->
+    NewConversation ->
+    ConversationSubsystem m StoredConversation
 
 makeSem ''ConversationSubsystem