utils/Console_logger: filled missing cases

pveber · Dec 9, 2018 · bb0c8c4 · bb0c8c4
1 parent 9449622
commit bb0c8c4
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/lib/utils/console_logger.ml b/lib/utils/console_logger.ml
@@ -32,10 +32,17 @@ let error_short_descr =
         "missing output"
     )
 
+let output_step_event t ~id ~descr =
+  let id = String.prefix id 6 in
+  msg t "started %s.%s" descr id
+
 let output_event t = function
   | Logger.Workflow_started (Shell { id ; descr ; _ }, _) ->
-    let id = String.prefix id 6 in
-    msg t "started %s.%s" descr id
+    output_step_event t ~id ~descr
+  | Logger.Workflow_started (Value { id ; descr ; _ }, _) ->
+    output_step_event t ~id ~descr
+  | Logger.Workflow_started (Path { id ; descr ; _ }, _) ->
+    output_step_event t ~id ~descr
 
   | Workflow_ended { outcome = (Task_result.Shell { id ; descr ; _ } as outcome) ; _ } ->
     let id = String.prefix id 6 in