From 3e4a98b65b9dbdd5fdf3533afae96f85ce1cb011 Mon Sep 17 00:00:00 2001 From: Richard Webb Date: Tue, 24 Dec 2024 23:45:32 +0000 Subject: [PATCH] Fix somw 'Pattern discard is not allowed for union case that takes no data' build warnings These show up in the .NET 8 build --- src/app/Fake.BuildServer.TeamCity/TeamCity.fs | 2 +- src/app/Fake.BuildServer.TeamFoundation/TeamFoundation.fs | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/app/Fake.BuildServer.TeamCity/TeamCity.fs b/src/app/Fake.BuildServer.TeamCity/TeamCity.fs index 5af6aae8fc2..81af3b84a37 100644 --- a/src/app/Fake.BuildServer.TeamCity/TeamCity.fs +++ b/src/app/Fake.BuildServer.TeamCity/TeamCity.fs @@ -35,7 +35,7 @@ module TeamCityImportExtensions = | ImportData.Junit -> "junit" | ImportData.FxCop -> "FxCop" | ImportData.Nunit _ -> "nunit" - | ImportData.Xunit _ -> "nunit" + | ImportData.Xunit -> "nunit" /// /// Native support for TeamCity specific APIs. diff --git a/src/app/Fake.BuildServer.TeamFoundation/TeamFoundation.fs b/src/app/Fake.BuildServer.TeamFoundation/TeamFoundation.fs index 96591ce33ce..b978d1a97a1 100644 --- a/src/app/Fake.BuildServer.TeamFoundation/TeamFoundation.fs +++ b/src/app/Fake.BuildServer.TeamFoundation/TeamFoundation.fs @@ -408,10 +408,10 @@ module TeamFoundation = | TagStatus.Failed -> "Failed", "ERROR" setBuildState vsoState msg - | TraceData.ImportData (ImportData.Junit _, path) -> publishTests "JUnit" [ path ] false "" "" "" true + | TraceData.ImportData (ImportData.Junit, path) -> publishTests "JUnit" [ path ] false "" "" "" true | TraceData.ImportData (ImportData.Nunit _, path) -> publishTests "NUnit" [ path ] false "" "" "" true - | TraceData.ImportData (ImportData.Mstest _, path) -> publishTests "VSTest" [ path ] false "" "" "" true - | TraceData.ImportData (ImportData.Xunit _, path) -> publishTests "XUnit" [ path ] false "" "" "" true + | TraceData.ImportData (ImportData.Mstest, path) -> publishTests "VSTest" [ path ] false "" "" "" true + | TraceData.ImportData (ImportData.Xunit, path) -> publishTests "XUnit" [ path ] false "" "" "" true | TraceData.ImportData (ImportData.BuildArtifactWithName name, path) -> publishArtifactIfOk name (Some name) path | TraceData.ImportData (typ, path) -> publishArtifactIfOk typ.Name (Some "fake-artifacts") path