@fossa-app/bridge 0.1.5 → 0.1.7

package/dotnet-tools.json

@@ -1,27 +0,0 @@
-{
-  "version": 1,
-  "isRoot": true,
-  "tools": {
-    "fable": {
-      "version": "4.29.0",
-      "commands": [
-        "fable"
-      ],
-      "rollForward": false
-    },
-    "fantomas": {
-      "version": "7.0.5",
-      "commands": [
-        "fantomas"
-      ],
-      "rollForward": false
-    },
-    "gitversion.tool": {
-      "version": "6.6.0",
-      "commands": [
-        "dotnet-gitversion"
-      ],
-      "rollForward": false
-    }
-  }
-}

package/format.ps1

@@ -1,11 +0,0 @@
-[CmdletBinding()]
-param (
-    [Parameter()]
-    [string]
-    $Version,
-    [Parameter()]
-    [string]
-    $Instance
-)
-
-.\trigger.ps1 -Task Format -Instance $Instance -Version $Version

package/gig.ps1

@@ -1,16 +0,0 @@
-#For PowerShell v3
-Function gig {
-    param(
-        [Parameter(Mandatory = $true)]
-        [string[]]$list
-    )
-    $params = ($list | ForEach-Object { [uri]::EscapeDataString($_) }) -join ','
-    Invoke-WebRequest -Uri "https://www.toptal.com/developers/gitignore/api/$params"
-    | Select-Object -ExpandProperty content | Out-File -FilePath $(Join-Path -Path $pwd -ChildPath '.gitignore') -Encoding ascii
-}
-
-gig -list visualstudio, visualstudiocode, rider, fsharp, powershell, macos, intellij+all
-
-Add-Content -Path .\.gitignore -Value '# Repository Specific' -Encoding ascii
-Add-Content -Path .\.gitignore -Value '.trash' -Encoding ascii
-Add-Content -Path .\.gitignore -Value '.idea/' -Encoding ascii

package/global.json

@@ -1,6 +0,0 @@
-{
-  "sdk": {
-    "version": "10.0.100",
-    "rollForward": "latestMajor"
-  }
-}

package/lint.ps1

@@ -1,20 +0,0 @@
-docker run --rm `
-    -e CREATE_LOG_FILE=true `
-    -e DEFAULT_BRANCH=main `
-    -e ENABLE_GITHUB_ACTIONS_GROUP_TITLE=true `
-    -e FIX_ENV=true `
-    -e FIX_JAVASCRIPT_ES=true `
-    -e FIX_JAVASCRIPT_PRETTIER=true `
-    -e FIX_JSON=true `
-    -e FIX_JSON_PRETTIER=true `
-    -e FIX_MARKDOWN=true `
-    -e FIX_MARKDOWN_PRETTIER=true `
-    -e FIX_NATURAL_LANGUAGE=true `
-    -e FIX_SHELL_SHFMT=true `
-    -e FIX_YAML_PRETTIER=true `
-    -e LOG_LEVEL=DEBUG `
-    -e RUN_LOCAL=true `
-    -e VALIDATE_JSCPD=false `
-    -e VALIDATE_ALL_CODEBASE=true `
-    -v .:/tmp/lint `
-    ghcr.io/super-linter/super-linter:latest

package/pack.ps1

@@ -1,11 +0,0 @@
-[CmdletBinding()]
-param (
-    [Parameter()]
-    [string]
-    $Version,
-    [Parameter()]
-    [string]
-    $Instance
-)
-
-.\trigger.ps1 -Task Pack -Instance $Instance -Version $Version

package/publish.ps1

@@ -1,11 +0,0 @@
-[CmdletBinding()]
-param (
-    [Parameter()]
-    [string]
-    $Version,
-    [Parameter()]
-    [string]
-    $Instance
-)
-
-.\trigger.ps1 -Task Publish -Instance $Instance -Version $Version

package/restore.ps1

@@ -1,11 +0,0 @@
-[CmdletBinding()]
-param (
-    [Parameter()]
-    [string]
-    $Version,
-    [Parameter()]
-    [string]
-    $Instance
-)
-
-.\trigger.ps1 -Task Restore -Instance $Instance -Version $Version

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

@@ -1,27 +0,0 @@
-<Project Sdk="Microsoft.NET.Sdk">
-  <PropertyGroup>
-    <TargetFramework>net8.0</TargetFramework>
-    <GenerateDocumentationFile>true</GenerateDocumentationFile>
-    <PackageId>Fossa.Bridge</PackageId>
-    <Version>1.0.0</Version>
-    <Authors>TIKSN</Authors>
-    <Description>Shared Domain Models and DTOs for Fossa UI and API</Description>
-  </PropertyGroup>
-  <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" />
-  </ItemGroup>
-</Project>

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

@@ -1,142 +0,0 @@
-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

@@ -1,46 +0,0 @@
-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

@@ -1,24 +0,0 @@
-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

@@ -1,17 +0,0 @@
-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

@@ -1,24 +0,0 @@
-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

@@ -1,48 +0,0 @@
-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

@@ -1,71 +0,0 @@
-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

@@ -1,9 +0,0 @@
-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

@@ -1,11 +0,0 @@
-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

@@ -1,13 +0,0 @@
-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

@@ -1,10 +0,0 @@
-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 +0,0 @@
-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