Merge pull request #48 from fossa-app/unified-api-clients

feat: add IClients interface and Clients implementation for improved service management

Author: tiksn

.build.ps1

@@ -246,7 +246,7 @@ Task PackNPM Build, Test, {
     $fablePattern = "$($fableOutputArtifactsFolder.Replace('\', '/'))/**/*"
     $distPath = $distArtifactsFolder.Replace('\', '/')
     $fablePath = $fableOutputArtifactsFolder.Replace('\', '/')
-    
+
     $tempTsConfig = @"
 {
   `"extends`": `"$baseTsConfig`",
@@ -270,15 +270,15 @@ Task PackNPM Build, Test, {
     $packageJsonPath = Resolve-Path -Path 'package.json'
     $packageJsonContent = Get-Content -Path $packageJsonPath -Raw | ConvertFrom-Json
     $packageJsonContent.version = $nextVersion.ToString()
-    
+
     $packageJsonContent | ConvertTo-Json -Depth 10 | Set-Content -Path (Join-Path -Path $distArtifactsFolder -ChildPath 'package.json')
-    
+
     Get-ChildItem -Path 'README.md', 'LICENSE' -File | Copy-Item -Destination $distArtifactsFolder
-    
+
     Exec { npm version '1.0.0' --no-git-tag-version --allow-same-version }
 
     Exec { npm pack $distArtifactsFolder --pack-destination $buildArtifactsFolder }
-    
+
     $npmPackage = Get-ChildItem -Path $buildArtifactsFolder -Filter '*.tgz' | Select-Object -First 1
 
     $state.NPMPackagePath = $npmPackage.FullName

src/Bridge/Bridge.fsproj

@@ -36,6 +36,8 @@
     <Compile Include="Services\Clients\CompanyLicenseClient.fs" />
     <Compile Include="Services\Clients\ISystemLicenseClient.fs" />
     <Compile Include="Services\Clients\SystemLicenseClient.fs" />
+    <Compile Include="Services\IClients.fs" />
+    <Compile Include="Services\Clients.fs" />
   </ItemGroup>
   <ItemGroup>
     <PackageReference Include="Fable.Core" Version="4.5.0" />

src/Bridge/Services/Clients.fs

@@ -0,0 +1,34 @@
+namespace Fossa.Bridge.Services.Clients
+
+open Fossa.Bridge.Services
+
+open Fossa.Bridge.Services.Clients
+
+type Clients(transport: IHttpTransport) =
+    let branchClient: IBranchClient = BranchClient(transport) :> IBranchClient
+    let companyClient: ICompanyClient = CompanyClient(transport) :> ICompanyClient
+
+    let companyLicenseClient: ICompanyLicenseClient =
+        CompanyLicenseClient(transport) :> ICompanyLicenseClient
+
+    let companySettingsClient: ICompanySettingsClient =
+        CompanySettingsClient(transport) :> ICompanySettingsClient
+
+    let departmentClient: IDepartmentClient =
+        DepartmentClient(transport) :> IDepartmentClient
+
+    let employeeClient: IEmployeeClient = EmployeeClient(transport) :> IEmployeeClient
+    let identityClient: IIdentityClient = IdentityClient(transport) :> IIdentityClient
+
+    let systemLicenseClient: ISystemLicenseClient =
+        SystemLicenseClient(transport) :> ISystemLicenseClient
+
+    interface IClients with
+        member _.BranchClient = branchClient
+        member _.CompanyClient = companyClient
+        member _.CompanyLicenseClient = companyLicenseClient
+        member _.CompanySettingsClient = companySettingsClient
+        member _.DepartmentClient = departmentClient
+        member _.EmployeeClient = employeeClient
+        member _.IdentityClient = identityClient
+        member _.SystemLicenseClient = systemLicenseClient

src/Bridge/Services/IClients.fs

@@ -0,0 +1,13 @@
+namespace Fossa.Bridge.Services
+
+open Fossa.Bridge.Services.Clients
+
+type IClients =
+    abstract BranchClient: IBranchClient
+    abstract CompanyClient: ICompanyClient
+    abstract CompanyLicenseClient: ICompanyLicenseClient
+    abstract CompanySettingsClient: ICompanySettingsClient
+    abstract DepartmentClient: IDepartmentClient
+    abstract EmployeeClient: IEmployeeClient
+    abstract IdentityClient: IIdentityClient
+    abstract SystemLicenseClient: ISystemLicenseClient