From 1e082e394334481025da59964ee776e98577f7ac Mon Sep 17 00:00:00 2001 From: Chris Blyth Date: Thu, 27 Sep 2018 10:54:27 +0100 Subject: [PATCH] Compilation fix --- src/app/Fake.BuildServer.TeamCity/TeamCity.fs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/app/Fake.BuildServer.TeamCity/TeamCity.fs b/src/app/Fake.BuildServer.TeamCity/TeamCity.fs index 15cbbc4c360..48362f22943 100644 --- a/src/app/Fake.BuildServer.TeamCity/TeamCity.fs +++ b/src/app/Fake.BuildServer.TeamCity/TeamCity.fs @@ -389,10 +389,10 @@ module TeamCity = testFailed testName message detail | TraceData.TestStatus (testName,TestStatus.Failed(message, detail, Some (expected, actual))) -> comparisonFailure testName message detail expected actual - | TraceData.BuildState state when state = TagStatus.Success -> + | TraceData.BuildState TagStatus.Success -> reportBuildStatus "SUCCESS" "{build.status.text}" | TraceData.BuildState state -> - reportBuildStatus "FAILURE" (sprintf "%o - {build.status.text}" state) + reportBuildStatus "FAILURE" (sprintf "%s - {build.status.text}" (state.ToString())) | TraceData.CloseTag (KnownTags.Test name, time, _) -> finishTestCase name time | TraceData.OpenTag (KnownTags.TestSuite name, _) -> @@ -403,7 +403,7 @@ module TeamCity = match description with | Some d -> TeamCityWriter.sendOpenBlock tag.Name (sprintf "%s: %s" tag.Type d) | _ -> TeamCityWriter.sendOpenBlock tag.Name tag.Type - | TraceData.CloseTag (tag, _, status) when status = TagStatus.Failed -> + | TraceData.CloseTag (tag, _, TagStatus.Failed) -> TeamCityWriter.sendCloseBlock tag.Name reportBuildStatus "FAILURE" (sprintf "Failure in %s" tag.Name) | TraceData.CloseTag (tag, _, _) ->