From 81045a7f9d6f53b013f5a678c3dba704d37178d5 Mon Sep 17 00:00:00 2001 From: Chris Blyth Date: Mon, 2 Jul 2018 20:17:21 +0100 Subject: [PATCH] Fixing issues with syntax --- src/app/Fake.Core.Trace/TraceListener.fs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/app/Fake.Core.Trace/TraceListener.fs b/src/app/Fake.Core.Trace/TraceListener.fs index 5a61a1bba2c..80d66c83514 100644 --- a/src/app/Fake.Core.Trace/TraceListener.fs +++ b/src/app/Fake.Core.Trace/TraceListener.fs @@ -253,13 +253,13 @@ type ConsoleTraceListener(importantMessagesToStdErr, colorMap, ansiColor) = | TraceData.OpenTag(KnownTags.Target _ as tag, description) | TraceData.OpenTag(KnownTags.FailureTarget _ as tag, description) | TraceData.OpenTag(KnownTags.FinalTarget _ as tag, description) -> - let color2 = colorMap TraceData.TraceMessage("", true) + let color2 = colorMap (TraceData.TraceMessage("", true)) match description with - | Some d -> write false color2 true (sprintf "Starting %s '%s': %s" tag.Type tag.Name data) + | Some d -> write false color2 true (sprintf "Starting %s '%s': %s" tag.Type tag.Name d) | _ -> write false color2 true (sprintf "Starting %s '%s'" tag.Type tag.Name) - | TraceData.OpenTag (tag, descr) -> - match descr with - | Some d -> write false color true (sprintf "Starting %s '%s': %s" tag.Type tag.Name data) + | TraceData.OpenTag (tag, description) -> + match description with + | Some d -> write false color true (sprintf "Starting %s '%s': %s" tag.Type tag.Name d) | _ -> write false color true (sprintf "Starting %s '%s'" tag.Type tag.Name) | TraceData.CloseTag (tag, time, status) -> write false color true (sprintf "Finished (%A) '%s' in %O" status tag.Name time)