Oleg Zinchenko 10 лет назад
Родитель
Сommit
fd614901fc
1 измененных файлов с 2 добавлено и 0 удалено
  1. 2 0
      src/store/store_mongo.erl

+ 2 - 0
src/store/store_mongo.erl

@@ -46,6 +46,7 @@ to_binary(V,ForceList) ->
   if is_integer(V) -> V;
     is_list(V) -> unicode:characters_to_binary(V,utf8,utf8);
     is_atom(V) -> list_to_binary(atom_to_list(V));
+    is_pid(V)  -> {pid,list_to_binary(pid_to_list(V))};
     true -> case ForceList of true -> [P] = io_lib:format("~p",[V]),list_to_binary(P); _ -> V end
   end.
 
@@ -67,6 +68,7 @@ make_record(Tab,Doc) ->
 
 decode_value(<<"true">>) -> true;
 decode_value(<<"false">>) -> false;
+decode_value({pid,Pid}) -> list_to_pid(binary_to_list(Pid));
 decode_value(V) when is_binary(V) -> unicode:characters_to_list(V,utf8);
 decode_value(V) -> V.