@fossa-app/bridge 0.1.4 → 0.1.5

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@fossa-app/bridge",
-  "version": "0.1.4",
+  "version": "0.1.5",
   "description": "Shared Domain Models and DTOs for Fossa UI and API",
   "main": "dist/index.js",
   "types": "dist/index.d.ts",

package/src/Fossa.Bridge/Fossa.Bridge.fsproj

@@ -10,6 +10,16 @@
   <ItemGroup>
     <Compile Include="Models\ApiModels.fs" />
     <Compile Include="Services\UrlHelpers.fs" />
+    <Compile Include="Services\Endpoints.fs" />
+    <Compile Include="Services\IHttpTransport.fs" />
+    <Compile Include="Services\Clients\CompanyClient.fs" />
+    <Compile Include="Services\Clients\CompanySettingsClient.fs" />
+    <Compile Include="Services\Clients\EmployeeClient.fs" />
+    <Compile Include="Services\Clients\IdentityClient.fs" />
+    <Compile Include="Services\Clients\BranchClient.fs" />
+    <Compile Include="Services\Clients\DepartmentClient.fs" />
+    <Compile Include="Services\Clients\CompanyLicenseClient.fs" />
+    <Compile Include="Services\Clients\SystemLicenseClient.fs" />
   </ItemGroup>
   <ItemGroup>
     <PackageReference Include="Fable.Core" Version="4.5.0" />

package/src/Fossa.Bridge/Models/ApiModels.fs

@@ -11,6 +11,12 @@ type AddressModel =
       PostalCode: string
       CountryCode: string }
 
+type ClientRetrievalModel =
+    { ClientId: Guid
+      ClientName: string
+      TenantId: Guid }
+
+
 type BranchModificationModel =
     { Name: string
       TimeZoneId: string

package/src/Fossa.Bridge/Services/Clients/BranchClient.fs

@@ -0,0 +1,46 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+open System
+
+type BranchClient(transport: IHttpTransport) =
+    let buildUrl (queryParams: BranchQueryRequestModel) =
+        let mutable url = Endpoints.BasePath + "/" + Endpoints.Branches + "?"
+
+        if queryParams.Id <> null && queryParams.Id.Count > 0 then
+            let ids = queryParams.Id |> Seq.map (fun id -> $"Id={id}") |> String.concat "&"
+            url <- url + ids + "&"
+
+        if not (String.IsNullOrEmpty(queryParams.Search)) then
+            url <- url + $"Search={Uri.EscapeDataString(queryParams.Search)}&"
+
+        if queryParams.PageNumber.HasValue then
+            url <- url + $"PageNumber={queryParams.PageNumber.Value}&"
+
+        if queryParams.PageSize.HasValue then
+            url <- url + $"PageSize={queryParams.PageSize.Value}&"
+
+        url.TrimEnd('&')
+
+    member _.GetBranchesAsync(query: BranchQueryRequestModel) : Task<PagingResponseModel<BranchRetrievalModel>> =
+        transport.GetAsync<PagingResponseModel<BranchRetrievalModel>>(buildUrl query)
+
+    member _.GetBranchAsync(id: int64) : Task<BranchRetrievalModel> =
+        transport.GetAsync<BranchRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.Branches + $"/{id}")
+
+    member _.CreateBranchAsync(model: BranchModificationModel) : Task<BranchRetrievalModel> =
+        transport.PostAsync<BranchModificationModel, BranchRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Branches,
+            model
+        )
+
+    member _.UpdateBranchAsync(id: int64, model: BranchModificationModel) : Task<BranchRetrievalModel> =
+        transport.PutAsync<BranchModificationModel, BranchRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Branches + $"/{id}",
+            model
+        )
+
+    member _.DeleteBranchAsync(id: int64) : Task<unit> =
+        transport.DeleteAsync(Endpoints.BasePath + "/" + Endpoints.Branches + $"/{id}")

package/src/Fossa.Bridge/Services/Clients/CompanyClient.fs

@@ -0,0 +1,24 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+
+type CompanyClient(transport: IHttpTransport) =
+    member _.GetCompanyAsync() : Task<CompanyRetrievalModel> =
+        transport.GetAsync<CompanyRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.Company)
+
+    member _.CreateCompanyAsync(model: CompanyModificationModel) : Task<CompanyRetrievalModel> =
+        transport.PostAsync<CompanyModificationModel, CompanyRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Company,
+            model
+        )
+
+    member _.UpdateCompanyAsync(model: CompanyModificationModel) : Task<CompanyRetrievalModel> =
+        transport.PutAsync<CompanyModificationModel, CompanyRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Company,
+            model
+        )
+
+    member _.DeleteCompanyAsync() : Task<unit> =
+        transport.DeleteAsync(Endpoints.BasePath + "/" + Endpoints.Company)

package/src/Fossa.Bridge/Services/Clients/CompanyLicenseClient.fs

@@ -0,0 +1,17 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+
+type CompanyLicenseClient(transport: IHttpTransport) =
+    member _.GetLicenseAsync() : Task<LicenseResponseModel<CompanyEntitlementsModel>> =
+        transport.GetAsync<LicenseResponseModel<CompanyEntitlementsModel>>(
+            Endpoints.BasePath + "/" + Endpoints.CompanyLicense
+        )
+
+    member _.CreateLicenseAsync(model: string) : Task<LicenseResponseModel<CompanyEntitlementsModel>> =
+        transport.PostAsync<string, LicenseResponseModel<CompanyEntitlementsModel>>(
+            Endpoints.BasePath + "/" + Endpoints.CompanyLicense,
+            model
+        )

package/src/Fossa.Bridge/Services/Clients/CompanySettingsClient.fs

@@ -0,0 +1,24 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+
+type CompanySettingsClient(transport: IHttpTransport) =
+    member _.GetCompanySettingsAsync() : Task<CompanySettingsRetrievalModel> =
+        transport.GetAsync<CompanySettingsRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.CompanySettings)
+
+    member _.CreateCompanySettingsAsync(model: CompanySettingsModificationModel) : Task<CompanySettingsRetrievalModel> =
+        transport.PostAsync<CompanySettingsModificationModel, CompanySettingsRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.CompanySettings,
+            model
+        )
+
+    member _.UpdateCompanySettingsAsync(model: CompanySettingsModificationModel) : Task<CompanySettingsRetrievalModel> =
+        transport.PutAsync<CompanySettingsModificationModel, CompanySettingsRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.CompanySettings,
+            model
+        )
+
+    member _.DeleteCompanySettingsAsync() : Task<unit> =
+        transport.DeleteAsync(Endpoints.BasePath + "/" + Endpoints.CompanySettings)

package/src/Fossa.Bridge/Services/Clients/DepartmentClient.fs

@@ -0,0 +1,48 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+open System
+
+type DepartmentClient(transport: IHttpTransport) =
+    let buildUrl (queryParams: DepartmentQueryRequestModel) =
+        let mutable url = Endpoints.BasePath + "/" + Endpoints.Departments + "?"
+
+        if queryParams.Id <> null && queryParams.Id.Count > 0 then
+            let ids = queryParams.Id |> Seq.map (fun id -> $"Id={id}") |> String.concat "&"
+            url <- url + ids + "&"
+
+        if not (String.IsNullOrEmpty(queryParams.Search)) then
+            url <- url + $"Search={Uri.EscapeDataString(queryParams.Search)}&"
+
+        if queryParams.PageNumber.HasValue then
+            url <- url + $"PageNumber={queryParams.PageNumber.Value}&"
+
+        if queryParams.PageSize.HasValue then
+            url <- url + $"PageSize={queryParams.PageSize.Value}&"
+
+        url.TrimEnd('&')
+
+    member _.GetDepartmentsAsync
+        (query: DepartmentQueryRequestModel)
+        : Task<PagingResponseModel<DepartmentRetrievalModel>> =
+        transport.GetAsync<PagingResponseModel<DepartmentRetrievalModel>>(buildUrl query)
+
+    member _.GetDepartmentAsync(id: int64) : Task<DepartmentRetrievalModel> =
+        transport.GetAsync<DepartmentRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.Departments + $"/{id}")
+
+    member _.CreateDepartmentAsync(model: DepartmentModificationModel) : Task<DepartmentRetrievalModel> =
+        transport.PostAsync<DepartmentModificationModel, DepartmentRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Departments,
+            model
+        )
+
+    member _.UpdateDepartmentAsync(id: int64, model: DepartmentModificationModel) : Task<DepartmentRetrievalModel> =
+        transport.PutAsync<DepartmentModificationModel, DepartmentRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Departments + $"/{id}",
+            model
+        )
+
+    member _.DeleteDepartmentAsync(id: int64) : Task<unit> =
+        transport.DeleteAsync(Endpoints.BasePath + "/" + Endpoints.Departments + $"/{id}")

package/src/Fossa.Bridge/Services/Clients/EmployeeClient.fs

@@ -0,0 +1,71 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+open System
+
+type EmployeeClient(transport: IHttpTransport) =
+    let buildUrl (queryParams: EmployeeQueryRequestModel) =
+        let mutable url = Endpoints.BasePath + "/" + Endpoints.Employees + "?"
+
+        if queryParams.Id <> null && queryParams.Id.Count > 0 then
+            let ids = queryParams.Id |> Seq.map (fun id -> $"Id={id}") |> String.concat "&"
+            url <- url + ids + "&"
+
+        if not (String.IsNullOrEmpty(queryParams.Search)) then
+            url <- url + $"Search={Uri.EscapeDataString(queryParams.Search)}&"
+
+        if queryParams.PageNumber.HasValue then
+            url <- url + $"PageNumber={queryParams.PageNumber.Value}&"
+
+        if queryParams.PageSize.HasValue then
+            url <- url + $"PageSize={queryParams.PageSize.Value}&"
+
+        if queryParams.ReportsToId.HasValue then
+            url <- url + $"ReportsToId={queryParams.ReportsToId.Value}&"
+
+        if queryParams.TopLevelOnly.HasValue then
+            url <- url + $"TopLevelOnly={queryParams.TopLevelOnly.Value}&"
+
+        url.TrimEnd('&')
+
+    let buildPagingUrl (queryParams: EmployeePagingRequestModel) =
+        let mutable url = Endpoints.BasePath + "/" + Endpoints.Employees + "?"
+
+        if not (String.IsNullOrEmpty(queryParams.Search)) then
+            url <- url + $"Search={Uri.EscapeDataString(queryParams.Search)}&"
+
+        if queryParams.PageNumber.HasValue then
+            url <- url + $"PageNumber={queryParams.PageNumber.Value}&"
+
+        if queryParams.PageSize.HasValue then
+            url <- url + $"PageSize={queryParams.PageSize.Value}&"
+
+        url.TrimEnd('&')
+
+    member _.GetEmployeesAsync(query: EmployeeQueryRequestModel) : Task<PagingResponseModel<EmployeeRetrievalModel>> =
+        transport.GetAsync<PagingResponseModel<EmployeeRetrievalModel>>(buildUrl query)
+
+    member _.GetEmployeesPagingAsync
+        (query: EmployeePagingRequestModel)
+        : Task<PagingResponseModel<EmployeeRetrievalModel>> =
+        transport.GetAsync<PagingResponseModel<EmployeeRetrievalModel>>(buildPagingUrl query)
+
+    member _.GetEmployeeAsync(id: int64) : Task<EmployeeRetrievalModel> =
+        transport.GetAsync<EmployeeRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.Employee + $"/{id}")
+
+    member _.CreateEmployeeAsync(model: EmployeeModificationModel) : Task<EmployeeRetrievalModel> =
+        transport.PostAsync<EmployeeModificationModel, EmployeeRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Employee,
+            model
+        )
+
+    member _.UpdateEmployeeAsync(id: int64, model: EmployeeModificationModel) : Task<EmployeeRetrievalModel> =
+        transport.PutAsync<EmployeeModificationModel, EmployeeRetrievalModel>(
+            Endpoints.BasePath + "/" + Endpoints.Employee + $"/{id}",
+            model
+        )
+
+    member _.DeleteEmployeeAsync(id: int64) : Task<unit> =
+        transport.DeleteAsync(Endpoints.BasePath + "/" + Endpoints.Employee + $"/{id}")

package/src/Fossa.Bridge/Services/Clients/IdentityClient.fs

@@ -0,0 +1,9 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+
+type IdentityClient(transport: IHttpTransport) =
+    member _.GetClientAsync(origin: string) : Task<ClientRetrievalModel> =
+        transport.GetAsync<ClientRetrievalModel>(Endpoints.BasePath + "/" + Endpoints.Client + $"?origin={origin}")

package/src/Fossa.Bridge/Services/Clients/SystemLicenseClient.fs

@@ -0,0 +1,11 @@
+namespace Fossa.Bridge.Services.Clients
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+open Fossa.Bridge.Services
+
+type SystemLicenseClient(transport: IHttpTransport) =
+    member _.GetLicenseAsync() : Task<LicenseResponseModel<SystemEntitlementsModel>> =
+        transport.GetAsync<LicenseResponseModel<SystemEntitlementsModel>>(
+            Endpoints.BasePath + "/" + Endpoints.SystemLicense
+        )

package/src/Fossa.Bridge/Services/Endpoints.fs

@@ -0,0 +1,13 @@
+namespace Fossa.Bridge.Services
+
+module Endpoints =
+    let BasePath = "api/1.0"
+    let Client = "Identity/Client"
+    let SystemLicense = "License/System"
+    let CompanyLicense = "License/Company"
+    let Company = "Company"
+    let CompanySettings = "CompanySettings"
+    let Branches = "Branches"
+    let Departments = "Departments"
+    let Employee = "Employee"
+    let Employees = "Employees"

package/src/Fossa.Bridge/Services/IHttpTransport.fs

@@ -0,0 +1,10 @@
+namespace Fossa.Bridge.Services
+
+open System.Threading.Tasks
+open Fossa.Bridge.Models
+
+type IHttpTransport =
+    abstract member GetAsync<'TResponse> : string -> Task<'TResponse>
+    abstract member PostAsync<'TRequest, 'TResponse> : string * 'TRequest -> Task<'TResponse>
+    abstract member PutAsync<'TRequest, 'TResponse> : string * 'TRequest -> Task<'TResponse>
+    abstract member DeleteAsync: string -> Task<unit>

package/src/Fossa.Bridge/bin/Release/net8.0/Fossa.Bridge.deps.json

@@ -6,7 +6,7 @@
   "compilationOptions": {},
   "targets": {
     ".NETCoreApp,Version=v8.0": {
-      "Fossa.Bridge/0.1.4": {
+      "Fossa.Bridge/0.1.5": {
         "dependencies": {
           "FSharp.Core": "10.0.102",
           "Fable.Core": "4.5.0"
@@ -75,7 +75,7 @@
     }
   },
   "libraries": {
-    "Fossa.Bridge/0.1.4": {
+    "Fossa.Bridge/0.1.5": {
       "type": "project",
       "serviceable": false,
       "sha512": ""

package/src/Fossa.Bridge/obj/Release/{Fossa.Bridge.0.1.4.nuspec → Fossa.Bridge.0.1.5.nuspec}

@@ -2,10 +2,10 @@
 <package xmlns="http://schemas.microsoft.com/packaging/2012/06/nuspec.xsd">
   <metadata>
     <id>Fossa.Bridge</id>
-    <version>0.1.4</version>
+    <version>0.1.5</version>
     <authors>TIKSN</authors>
     <description>Shared Domain Models and DTOs for Fossa UI and API</description>
-    <repository type="git" commit="55d564b7a13d179b4b07862856f928d22586a243" />
+    <repository type="git" commit="00fcff73a156f62b5ccacbd84fa794671cb07f22" />
     <dependencies>
       <group targetFramework="net8.0">
         <dependency id="FSharp.Core" version="10.0.102" exclude="Build,Analyzers" />

package/src/Fossa.Bridge/obj/Release/net8.0/Fossa.Bridge.AssemblyInfo.fs

@@ -10,9 +10,9 @@ open System.Reflection
 [<assembly: System.Reflection.AssemblyCompanyAttribute("TIKSN")>]
 [<assembly: System.Reflection.AssemblyConfigurationAttribute("Release")>]
 [<assembly: System.Reflection.AssemblyDescriptionAttribute("Shared Domain Models and DTOs for Fossa UI and API")>]
-[<assembly: System.Reflection.AssemblyFileVersionAttribute("0.1.4.0")>]
-[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("0.1.4+55d564b7a13d179b4b07862856f928d22586a243")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("0.1.5.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("0.1.5+00fcff73a156f62b5ccacbd84fa794671cb07f22")>]
 [<assembly: System.Reflection.AssemblyProductAttribute("Fossa.Bridge")>]
 [<assembly: System.Reflection.AssemblyTitleAttribute("Fossa.Bridge")>]
-[<assembly: System.Reflection.AssemblyVersionAttribute("0.1.4.0")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("0.1.5.0")>]
 do()

package/src/Fossa.Bridge/obj/Release/net8.0/Fossa.Bridge.fable-temp.AssemblyInfo.cs

@@ -14,7 +14,7 @@ using System.Reflection;
 [assembly: System.Reflection.AssemblyConfigurationAttribute("Release")]
 [assembly: System.Reflection.AssemblyDescriptionAttribute("Shared Domain Models and DTOs for Fossa UI and API")]
 [assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")]
-[assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0+55d564b7a13d179b4b07862856f928d22586a243")]
+[assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0+00fcff73a156f62b5ccacbd84fa794671cb07f22")]
 [assembly: System.Reflection.AssemblyProductAttribute("Fossa.Bridge.fable-temp")]
 [assembly: System.Reflection.AssemblyTitleAttribute("Fossa.Bridge.fable-temp")]
 [assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")]

package/src/Fossa.Bridge/obj/Release/net8.0/Fossa.Bridge.sourcelink.json

@@ -1 +1 @@
-{"documents":{"/home/runner/work/Bridge/Bridge/*":"https://raw.githubusercontent.com/fossa-app/Bridge/55d564b7a13d179b4b07862856f928d22586a243/*"}}
+{"documents":{"/home/runner/work/Bridge/Bridge/*":"https://raw.githubusercontent.com/fossa-app/Bridge/00fcff73a156f62b5ccacbd84fa794671cb07f22/*"}}

package/tests/Fossa.Bridge.Tests/obj/Release/net8.0/Fossa.Bridge.Tests.AssemblyInfo.fs

@@ -10,7 +10,7 @@ open System.Reflection
 [<assembly: System.Reflection.AssemblyCompanyAttribute("Fossa.Bridge.Tests")>]
 [<assembly: System.Reflection.AssemblyConfigurationAttribute("Release")>]
 [<assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")>]
-[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0+55d564b7a13d179b4b07862856f928d22586a243")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0+00fcff73a156f62b5ccacbd84fa794671cb07f22")>]
 [<assembly: System.Reflection.AssemblyProductAttribute("Fossa.Bridge.Tests")>]
 [<assembly: System.Reflection.AssemblyTitleAttribute("Fossa.Bridge.Tests")>]
 [<assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>]

package/tests/Fossa.Bridge.Tests/obj/Release/net8.0/Fossa.Bridge.Tests.sourcelink.json

@@ -1 +1 @@
-{"documents":{"/home/runner/work/Bridge/Bridge/*":"https://raw.githubusercontent.com/fossa-app/Bridge/55d564b7a13d179b4b07862856f928d22586a243/*"}}
+{"documents":{"/home/runner/work/Bridge/Bridge/*":"https://raw.githubusercontent.com/fossa-app/Bridge/00fcff73a156f62b5ccacbd84fa794671cb07f22/*"}}