show utf8 text in io:format

Author: ZatolokinPavel

src/bpe.erl

@@ -95,7 +95,7 @@ val(Document,Proc,Cond,Action) ->
     case Cond(Document,Proc) of
          true -> Action(Document,Proc), {reply,Proc};
          {false,Message} -> {{reply,Message},Proc#process.task,Proc};
-         ErrorList -> io:format("BPE:val/4 failed: ~p~n",[ErrorList]),
+         ErrorList -> io:format("BPE:val/4 failed: ~tp~n",[ErrorList]),
                       {{reply,ErrorList},Proc#process.task,Proc} end.
 
 option(Proc, Key) -> proplists:get_value(Key,Proc#process.options).

src/bpe_proc.erl

@@ -21,7 +21,7 @@ process_event(Event,Proc) ->
 
     NewProcState = ProcState#process{task = Target},
     FlowReply = fix_reply({Status,{Reason,Target},NewProcState}),
-    wf:info(?MODULE,"Process ~p Flow Reply ~p ",[Proc#process.id,{Status,{Reason,Target}}]),
+    wf:info(?MODULE,"Process ~p Flow Reply ~tp ",[Proc#process.id,{Status,{Reason,Target}}]),
     kvs:put(transient(NewProcState)),
     FlowReply.
 
@@ -59,7 +59,7 @@ process_flow(Stage,Proc,NoFlow) ->
     NewProcState = ProcState#process{task = Target},
 
     FlowReply = fix_reply({Status,{Reason,Target},NewProcState}),
-    wf:info(?MODULE,"Process ~p Flow Reply ~p ",[Proc#process.id,{Status,{Reason,Target}}]),
+    wf:info(?MODULE,"Process ~p Flow Reply ~tp ",[Proc#process.id,{Status,{Reason,Target}}]),
     kvs:put(transient(NewProcState)),
     FlowReply.