From 08aa4c04c3717cc1a5aa86b91a992e14ba0dc064 Mon Sep 17 00:00:00 2001 From: "dependabot[bot]" <49699333+dependabot[bot]@users.noreply.github.com> Date: Mon, 6 Jul 2026 18:52:49 +0000 Subject: [PATCH 1/2] Bump fable from 5.5.0 to 5.6.0 --- updated-dependencies: - dependency-name: fable dependency-version: 5.6.0 dependency-type: direct:production update-type: version-update:semver-minor ... Signed-off-by: dependabot[bot] --- .config/dotnet-tools.json | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/.config/dotnet-tools.json b/.config/dotnet-tools.json index 57cf164..a1485cc 100644 --- a/.config/dotnet-tools.json +++ b/.config/dotnet-tools.json @@ -3,7 +3,7 @@ "isRoot": true, "tools": { "fable": { - "version": "5.5.0", + "version": "5.6.0", "commands": [ "fable" ], From 658436f708d6e6f3091c9fdea3eaec6b8201a9b4 Mon Sep 17 00:00:00 2001 From: Tigran TIKSN Torosyan Date: Mon, 6 Jul 2026 14:04:41 -0500 Subject: [PATCH 2/2] Handle null search params and format DateTimeOffset URLs --- src/Bridge/Services/Clients/BranchClient.fs | 5 +++-- src/Bridge/Services/Clients/DepartmentClient.fs | 5 +++-- src/Bridge/Services/Clients/EmployeeClient.fs | 10 ++++++---- src/Bridge/Services/UrlHelpers.fs | 4 +++- 4 files changed, 15 insertions(+), 9 deletions(-) diff --git a/src/Bridge/Services/Clients/BranchClient.fs b/src/Bridge/Services/Clients/BranchClient.fs index 95b51bf..29e694d 100644 --- a/src/Bridge/Services/Clients/BranchClient.fs +++ b/src/Bridge/Services/Clients/BranchClient.fs @@ -17,8 +17,9 @@ type BranchClient(transport: IHttpTransport) = for id in ids do yield "id", (id: UrlPart) | _ -> () - if not (String.IsNullOrEmpty(queryParams.search)) then - yield "search", (queryParams.search: UrlPart) + match Option.ofObj queryParams.search with + | Some search when not (String.IsNullOrEmpty(search)) -> yield "search", (search: UrlPart) + | _ -> () if queryParams.pageNumber.HasValue then yield "pageNumber", (queryParams.pageNumber.Value: UrlPart) if queryParams.pageSize.HasValue then diff --git a/src/Bridge/Services/Clients/DepartmentClient.fs b/src/Bridge/Services/Clients/DepartmentClient.fs index 4d3132c..58da162 100644 --- a/src/Bridge/Services/Clients/DepartmentClient.fs +++ b/src/Bridge/Services/Clients/DepartmentClient.fs @@ -17,8 +17,9 @@ type DepartmentClient(transport: IHttpTransport) = for id in ids do yield "id", (id: UrlPart) | _ -> () - if not (String.IsNullOrEmpty(queryParams.search)) then - yield "search", (queryParams.search: UrlPart) + match Option.ofObj queryParams.search with + | Some search when not (String.IsNullOrEmpty(search)) -> yield "search", (search: UrlPart) + | _ -> () if queryParams.pageNumber.HasValue then yield "pageNumber", (queryParams.pageNumber.Value: UrlPart) if queryParams.pageSize.HasValue then diff --git a/src/Bridge/Services/Clients/EmployeeClient.fs b/src/Bridge/Services/Clients/EmployeeClient.fs index 2660db7..eae9e95 100644 --- a/src/Bridge/Services/Clients/EmployeeClient.fs +++ b/src/Bridge/Services/Clients/EmployeeClient.fs @@ -17,8 +17,9 @@ type EmployeeClient(transport: IHttpTransport) = for id in ids do yield "id", (id: UrlPart) | _ -> () - if not (String.IsNullOrEmpty(queryParams.search)) then - yield "search", (queryParams.search: UrlPart) + match Option.ofObj queryParams.search with + | Some search when not (String.IsNullOrEmpty(search)) -> yield "search", (search: UrlPart) + | _ -> () if queryParams.pageNumber.HasValue then yield "pageNumber", (queryParams.pageNumber.Value: UrlPart) if queryParams.pageSize.HasValue then @@ -33,8 +34,9 @@ type EmployeeClient(transport: IHttpTransport) = let buildPagingUrl (queryParams: EmployeePagingRequestModel) = let parameters = - [ if not (String.IsNullOrEmpty(queryParams.search)) then - yield "search", (queryParams.search: UrlPart) + [ match Option.ofObj queryParams.search with + | Some search when not (String.IsNullOrEmpty(search)) -> yield "search", (search: UrlPart) + | _ -> () if queryParams.pageNumber.HasValue then yield "pageNumber", (queryParams.pageNumber.Value: UrlPart) if queryParams.pageSize.HasValue then diff --git a/src/Bridge/Services/UrlHelpers.fs b/src/Bridge/Services/UrlHelpers.fs index ced0f77..e035906 100644 --- a/src/Bridge/Services/UrlHelpers.fs +++ b/src/Bridge/Services/UrlHelpers.fs @@ -2,6 +2,7 @@ module Fossa.Bridge.Services.UrlHelpers open System +open System.Globalization let private suffixMappings = [ ".dev.localhost:4211", ".dev.localhost:5210" @@ -39,7 +40,8 @@ type UrlPart(value: string) = static member op_Implicit(dt: DateTime) = UrlPart(string dt) - static member op_Implicit(dto: DateTimeOffset) = UrlPart(string dto) + static member op_Implicit(dto: DateTimeOffset) = + UrlPart(dto.ToString("O", CultureInfo.InvariantCulture)) let composeRelativeUrl (endpointUrl: string)