@fossa-app/bridge 0.1.1 → 0.1.5

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

@@ -1,136 +1,142 @@
-namespace Fossa.Bridge.Models
-
-open System
-open System.Collections.Generic
-
-type AddressModel =
-    { Line1: string
-      Line2: string
-      City: string
-      Subdivision: string
-      PostalCode: string
-      CountryCode: string }
-
-type BranchModificationModel =
-    { Name: string
-      TimeZoneId: string
-      Address: AddressModel }
-
-type BranchQueryRequestModel =
-    { Id: IReadOnlyList<int64>
-      Search: string
-      PageNumber: Nullable<int>
-      PageSize: Nullable<int> }
-
-type BranchRetrievalModel =
-    { Id: int64
-      CompanyId: int64
-      Name: string
-      TimeZoneId: string
-      Address: AddressModel }
-
-type CompanyEntitlementsModel =
-    { CompanyId: int64
-      MaximumBranchCount: int
-      MaximumEmployeeCount: int
-      MaximumDepartmentCount: int }
-
-type CompanyModificationModel = { Name: string; CountryCode: string }
-
-type CompanyRetrievalModel =
-    { Id: int64
-      Name: string
-      CountryCode: string }
-
-type CompanySettingsModificationModel = { ColorSchemeId: string }
-
-type CompanySettingsRetrievalModel =
-    { Id: int64
-      CompanyId: int64
-      ColorSchemeId: string }
-
-type CountryModel = { Name: string; Code: string }
-
-type DepartmentModificationModel =
-    { Name: string
-      ParentDepartmentId: Nullable<int64>
-      ManagerId: Nullable<int64> }
-
-type DepartmentQueryRequestModel =
-    { Id: IReadOnlyList<int64>
-      Search: string
-      PageNumber: Nullable<int>
-      PageSize: Nullable<int> }
-
-type DepartmentRetrievalModel =
-    { Id: int64
-      Name: string
-      ParentDepartmentId: Nullable<int64>
-      ManagerId: int64 }
-
-type EmployeeManagementModel =
-    { AssignedBranchId: Nullable<int64>
-      AssignedDepartmentId: Nullable<int64>
-      ReportsToId: Nullable<int64>
-      JobTitle: string }
-
-type EmployeeModificationModel =
-    { FirstName: string
-      LastName: string
-      FullName: string }
-
-type EmployeePagingRequestModel =
-    { Search: string
-      PageNumber: Nullable<int>
-      PageSize: Nullable<int> }
-
-type EmployeeQueryRequestModel =
-    { Id: IReadOnlyList<int64>
-      Search: string
-      PageNumber: Nullable<int>
-      PageSize: Nullable<int>
-      ReportsToId: Nullable<int64>
-      TopLevelOnly: Nullable<bool> }
-
-type EmployeeRetrievalModel =
-    { Id: int64
-      CompanyId: int64
-      AssignedBranchId: Nullable<int64>
-      AssignedDepartmentId: Nullable<int64>
-      ReportsToId: Nullable<int64>
-      JobTitle: string
-      FirstName: string
-      LastName: string
-      FullName: string }
-
-type TimeZoneModel =
-    { Id: string
-      Name: string
-      CountryCode: string
-      CurrentOffset: TimeSpan }
-
-type PartyModel = { LongName: string; ShortName: string }
-
-type LicenseTermsModel =
-    { Licensor: PartyModel
-      Licensee: PartyModel
-      NotBefore: DateTimeOffset
-      NotAfter: DateTimeOffset }
-
-type LicenseResponseModel<'TEntitlementsModel> =
-    { Terms: LicenseTermsModel
-      Entitlements: 'TEntitlementsModel }
-
-type PagingResponseModel<'T> =
-    { PageNumber: Nullable<int>
-      PageSize: Nullable<int>
-      Items: IReadOnlyCollection<'T>
-      TotalItems: Nullable<int64>
-      TotalPages: Nullable<int64> }
-
-type SystemEntitlementsModel =
-    { EnvironmentName: string
-      EnvironmentKind: string
-      Countries: IReadOnlyList<CountryModel>
-      TimeZones: IReadOnlyList<TimeZoneModel>
-      MaximumCompanyCount: int }
+namespace Fossa.Bridge.Models
+
+open System
+open System.Collections.Generic
+
+type AddressModel =
+    { Line1: string
+      Line2: string
+      City: string
+      Subdivision: string
+      PostalCode: string
+      CountryCode: string }
+
+type ClientRetrievalModel =
+    { ClientId: Guid
+      ClientName: string
+      TenantId: Guid }
+
+
+type BranchModificationModel =
+    { Name: string
+      TimeZoneId: string
+      Address: AddressModel }
+
+type BranchQueryRequestModel =
+    { Id: IReadOnlyList<int64>
+      Search: string
+      PageNumber: Nullable<int>
+      PageSize: Nullable<int> }
+
+type BranchRetrievalModel =
+    { Id: int64
+      CompanyId: int64
+      Name: string
+      TimeZoneId: string
+      Address: AddressModel }
+
+type CompanyEntitlementsModel =
+    { CompanyId: int64
+      MaximumBranchCount: int
+      MaximumEmployeeCount: int
+      MaximumDepartmentCount: int }
+
+type CompanyModificationModel = { Name: string; CountryCode: string }
+
+type CompanyRetrievalModel =
+    { Id: int64
+      Name: string
+      CountryCode: string }
+
+type CompanySettingsModificationModel = { ColorSchemeId: string }
+
+type CompanySettingsRetrievalModel =
+    { Id: int64
+      CompanyId: int64
+      ColorSchemeId: string }
+
+type CountryModel = { Name: string; Code: string }
+
+type DepartmentModificationModel =
+    { Name: string
+      ParentDepartmentId: Nullable<int64>
+      ManagerId: Nullable<int64> }
+
+type DepartmentQueryRequestModel =
+    { Id: IReadOnlyList<int64>
+      Search: string
+      PageNumber: Nullable<int>
+      PageSize: Nullable<int> }
+
+type DepartmentRetrievalModel =
+    { Id: int64
+      Name: string
+      ParentDepartmentId: Nullable<int64>
+      ManagerId: int64 }
+
+type EmployeeManagementModel =
+    { AssignedBranchId: Nullable<int64>
+      AssignedDepartmentId: Nullable<int64>
+      ReportsToId: Nullable<int64>
+      JobTitle: string }
+
+type EmployeeModificationModel =
+    { FirstName: string
+      LastName: string
+      FullName: string }
+
+type EmployeePagingRequestModel =
+    { Search: string
+      PageNumber: Nullable<int>
+      PageSize: Nullable<int> }
+
+type EmployeeQueryRequestModel =
+    { Id: IReadOnlyList<int64>
+      Search: string
+      PageNumber: Nullable<int>
+      PageSize: Nullable<int>
+      ReportsToId: Nullable<int64>
+      TopLevelOnly: Nullable<bool> }
+
+type EmployeeRetrievalModel =
+    { Id: int64
+      CompanyId: int64
+      AssignedBranchId: Nullable<int64>
+      AssignedDepartmentId: Nullable<int64>
+      ReportsToId: Nullable<int64>
+      JobTitle: string
+      FirstName: string
+      LastName: string
+      FullName: string }
+
+type TimeZoneModel =
+    { Id: string
+      Name: string
+      CountryCode: string
+      CurrentOffset: TimeSpan }
+
+type PartyModel = { LongName: string; ShortName: string }
+
+type LicenseTermsModel =
+    { Licensor: PartyModel
+      Licensee: PartyModel
+      NotBefore: DateTimeOffset
+      NotAfter: DateTimeOffset }
+
+type LicenseResponseModel<'TEntitlementsModel> =
+    { Terms: LicenseTermsModel
+      Entitlements: 'TEntitlementsModel }
+
+type PagingResponseModel<'T> =
+    { PageNumber: Nullable<int>
+      PageSize: Nullable<int>
+      Items: IReadOnlyCollection<'T>
+      TotalItems: Nullable<int64>
+      TotalPages: Nullable<int64> }
+
+type SystemEntitlementsModel =
+    { EnvironmentName: string
+      EnvironmentKind: string
+      Countries: IReadOnlyList<CountryModel>
+      TimeZones: IReadOnlyList<TimeZoneModel>
+      MaximumCompanyCount: int }

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/Services/UrlHelpers.fs

@@ -1,18 +1,18 @@
-module Fossa.Bridge.Services.UrlHelpers
-
-let private suffixMappings =
-    [ ".dev.localhost:4211", ".dev.localhost:5210"
-      ".test.localhost:4210", ".test.localhost:5211"
-      ".test.localhost:4211", ".test.localhost:5211"
-      ".localhost:4210", ".localhost:5210" ]
-
-let getBackendOrigin (frontendOrigin: string) : string =
-    let mapping =
-        suffixMappings
-        |> List.tryFind (fun (frontendSuffix, _) -> frontendOrigin.EndsWith(frontendSuffix))
-
-    match mapping with
-    | Some(frontendSuffix, backendSuffix) ->
-        let prefixLength = frontendOrigin.Length - frontendSuffix.Length
-        frontendOrigin.Substring(0, prefixLength) + backendSuffix
-    | None -> frontendOrigin
+module Fossa.Bridge.Services.UrlHelpers
+
+let private suffixMappings =
+    [ ".dev.localhost:4211", ".dev.localhost:5210"
+      ".test.localhost:4210", ".test.localhost:5211"
+      ".test.localhost:4211", ".test.localhost:5211"
+      ".localhost:4210", ".localhost:5210" ]
+
+let getBackendOrigin (frontendOrigin: string) : string =
+    let mapping =
+        suffixMappings
+        |> List.tryFind (fun (frontendSuffix, _) -> frontendOrigin.EndsWith(frontendSuffix))
+
+    match mapping with
+    | Some(frontendSuffix, backendSuffix) ->
+        let prefixLength = frontendOrigin.Length - frontendSuffix.Length
+        frontendOrigin.Substring(0, prefixLength) + backendSuffix
+    | None -> frontendOrigin