Add wrek_vert_t:to_list/1

scherrey · Jan 14, 2019 · 53dd71e · 53dd71e
1 parent 1bb4f8b
commit 53dd71e
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/wrek_vert_t.erl b/src/wrek_vert_t.erl
@@ -8,6 +8,7 @@
  has_succeeded/1,
  is_finished/1,
  succeed/2,
+ to_list/1,
  % getters
  args/1,
  deps/1,
@@ -149,6 +150,14 @@ succeed(Vert = #?T{kv = Kv}, Result) ->
  set_status(Vert2, done).
 
 
+-spec to_list(t()) -> [{atom(), any()}].
+
+to_list(T = #?T{}) ->
+ Fields = record_info(fields, ?T),
+ [_Tag | Values] = tuple_to_list(T),
+ lists:zip(Fields, Values).
+
+
 -spec args(t()) -> args_t().
 
 args(#?T{args = Args}) ->