Tie Duration.log_execution_time into the viz timing code.

Author: jdunkerley

distribution/lib/Standard/Base/0.0.0-dev/src/Data/Time/Duration.enso

@@ -162,11 +162,12 @@ type Duration
        ## Arguments
         - `function`: Function to execute.
     log_execution_time : Any -> Text -> Any
-    log_execution_time ~function label="execution_time" =
-        pair = Duration.time_execution function
-        duration = pair.first
-        Duration.log_message ("Execution time for " + label + ": " + duration.to_display_text) ..Info
-        pair.second
+    log_execution_time ~function label="execution_time" level:(Log_Level | Nothing)=Log_Level.viz_timing_level =
+        if Nothing == level then function else
+            pair = Duration.time_execution function
+            duration = pair.first
+            Duration.log_message ("Execution time for " + label + ": " + duration.to_display_text) level
+            pair.second
 
     ## ---
        aliases: [add duration]

distribution/lib/Standard/Base/0.0.0-dev/src/Logging.enso

@@ -133,6 +133,13 @@ type Log_Level
     ## Severe level log message.
     Severe
 
+    ## ---
+       private: true
+       ---
+       Check to see if the timing of visualization is enabled and log the message if it is.
+    viz_timing_level -> (Log_Level | Nothing) =
+        State.get Log_Level if_missing=_viz_timing_level
+
 private log_impl logger ~message level args =
     builder = case level of
         Log_Level.Finest -> logger.atTrace
@@ -146,3 +153,11 @@ private log_impl logger ~message level args =
         builder.addArgument a
 
     builder.log
+
+private _viz_timing_level =
+    case Environment.get "ENSO_TIME_VIZZES" of
+        "warning" -> ..Warning
+        "info" -> ..Info
+        "debug" -> ..Fine
+        "trace" -> ..Finest
+        _ -> Nothing

distribution/lib/Standard/Visualization/0.0.0-dev/src/Helpers.enso

@@ -260,11 +260,7 @@ private time_visualization module ~name ~action =
         if result.is_error then module.log_message ("Visualization "+name+" failed (error): " + result.catch.to_text) ..Warning
         result
 
-    level = case Environment.get "ENSO_TIME_VIZZES" of
-        Nothing -> Nothing
-        "warning" -> ..Warning
-        "info" -> ..Info
-        _ -> ..Trace
+    level = Log_Level.viz_timing_level
     if level . is_nothing then wrapped else
         pair = Duration.time_execution wrapped
         suffix = if pair.second.is_a Text then " length="+(Text_Utils.char_length pair.second).to_text else ""