diff --git a/src/chokecherry.erl b/src/chokecherry.erl index ee22391..2a846d1 100644 --- a/src/chokecherry.erl +++ b/src/chokecherry.erl @@ -10,6 +10,7 @@ -export([info/1, info/2, info/3, + info/4, warning/1, warning/2, warning/3, @@ -46,6 +47,16 @@ info(StringFormat, Args) -> info(Module, StringFormat, Args) -> chokecherry_shaper:put({[{module, Module}, {pid, self()}], StringFormat, Args}). +-spec info(atom(), list(), string(), list()) -> 'ok'. +info(Module, MetaData, StringFormat, Args) -> + Meta = case MetaData of + [] -> [{module, Module}, {pid, self()}]; + [Element|[]] -> [{module, Module}, {pid, self()}, Element]; + EList when is_list(EList) -> [{module, Module}, {pid, self()}] ++ EList; + Else -> [{module, Module}, {pid, self()}, Else] + end, + chokecherry_shaper:put({Meta, StringFormat, Args}). + -spec warning(string()) -> 'ok'. warning(StringFormat) ->