|
@@ -4,7 +4,7 @@
|
|
-include_lib("kvs/include/user.hrl").
|
|
-include_lib("kvs/include/user.hrl").
|
|
|
|
|
|
updateProplist({K,V},P) ->
|
|
updateProplist({K,V},P) ->
|
|
- Prop = case P of undefine -> []; _P -> _P end,
|
|
|
|
|
|
+ Prop = case P of undefined -> []; _P -> _P end,
|
|
case proplists:get_value(K,Prop) of
|
|
case proplists:get_value(K,Prop) of
|
|
undefined -> [{K,V} | Prop];
|
|
undefined -> [{K,V} | Prop];
|
|
_ -> lists:keyreplace(K,1,Prop,{K,V})
|
|
_ -> lists:keyreplace(K,1,Prop,{K,V})
|