Bugfixing, compile-error-sqhashung.
This commit is contained in:
@ -22,7 +22,7 @@ set_property(Ref=#ts_timeline{}, entry_exclusions, ExclusionList) ->
|
||||
|
||||
set_property(Ref, Key, Value) ->
|
||||
throw(io_lib:format("Property '~s' not available for a ~s record.",
|
||||
[Key, element(1, Ref)]).
|
||||
[Key, element(1, Ref)])).
|
||||
|
||||
get_property(Ref, PropKey) ->
|
||||
{atomic, Result} = mnesia:transaction(fun() ->
|
||||
@ -42,6 +42,6 @@ get_properties(Ref) ->
|
||||
|
||||
do_set_property(Ref, PropKey, Val) ->
|
||||
{atomic, Result} = mnesia:transaction(fun() ->
|
||||
mnesia:write(#ts_ext_data{ref = {Ref, PropKey}, value = Val}).
|
||||
mnesia:write(#ts_ext_data{ref = {Ref, PropKey}, value = Val})
|
||||
end),
|
||||
Result.
|
||||
|
Reference in New Issue
Block a user