From 93e613bb5bbb1eb58135e68bb184c7cf6d230ad8 Mon Sep 17 00:00:00 2001 From: nsensfel Date: Fri, 18 Jan 2019 18:32:59 +0100 Subject: Fixes position of ID param for add_at & reserve_at --- src/ataxia_server.erl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/ataxia_server.erl') diff --git a/src/ataxia_server.erl b/src/ataxia_server.erl index 4453e63..717957b 100644 --- a/src/ataxia_server.erl +++ b/src/ataxia_server.erl @@ -202,14 +202,14 @@ fetch_if_internals (DB, User, ID, Cond) -> -spec add_at ( atom(), - ataxia_id:type(), ataxia_security:permission(), ataxia_security:permission(), ataxia_lock:type(), - any() + any(), + ataxia_id:type() ) -> ({'aborted', any()} | 'ok'). -add_at (DB, ID, ReadPerm, WritePerm, Lock, Value) -> +add_at (DB, ReadPerm, WritePerm, Lock, Value, ID) -> Item = ataxia_entry:new(ID, ReadPerm, WritePerm, Lock, Value), case mnesia:transaction(fun add_new_item/2, [DB, Item]) of {atomic, ok} -> ok; @@ -227,7 +227,7 @@ add_at (DB, ID, ReadPerm, WritePerm, Lock, Value) -> -> ({'aborted', any()} | {'ok', ataxia_id:type()}). add (DB, ReadPerm, WritePerm, Lock, Value) -> ID = ataxia_id_manager:allocate(DB), - case add_at(DB, ID, ReadPerm, WritePerm, Lock, Value) of + case add_at(DB, ReadPerm, WritePerm, Lock, Value, ID) of ok -> {ok, ID}; {aborted, Val} -> {aborted, Val} end. @@ -246,11 +246,11 @@ reserve_at (DB, ReadPerm, WritePerm, Lock, ID) -> add_at ( DB, - ID, ataxia_security:add_access(ataxia_security:janitor(), ReadPerm), ataxia_security:add_access(ataxia_security:janitor(), WritePerm), Lock, % TODO: allow the janitor there. - reserved + reserved, + ID ). -spec reserve -- cgit v1.2.3-70-g09d2