Fixing issues with syntax

fsprojects · Jul 2, 2018 · 81045a7 · 81045a7
1 parent 467d142
commit 81045a7
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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)