diff --git a/dudeswave_users/src/dudeswave_users_user.erl b/dudeswave_users/src/dudeswave_users_user.erl index b955a9a..d4f5a23 100644 --- a/dudeswave_users/src/dudeswave_users_user.erl +++ b/dudeswave_users/src/dudeswave_users_user.erl @@ -18,7 +18,7 @@ -include_lib("dudeswave_backend/include/defines.hrl"). -include_lib("storage/include/storage.hrl"). --export([details/2, new/4, update/5, delete/1]). +-export([details/2, new/4, update/5, delete/2]). -doc """ Return user details. @@ -136,15 +136,19 @@ update(User, Host, Name, Email, Desc) -> Delete an existing user from the database. ``` --spec delete(User) -> ok | {error, Reason} when +-spec delete(User, Host) -> ok | {error, Reason} when User :: binary(), + Host :: binary(), Reason :: term(). ``` """. --spec delete(User) -> ok | {error, Reason} when +-spec delete(User, Host) -> ok | {error, Reason} when User :: binary(), + Host :: binary(), Reason :: term(). -delete(User) -> - ok = storage:delete(?USERSBUCK, User), - ok = storage:delete_set(?COOKIESBUCK, [{user, User}]). +delete(User, Host) -> + ComplUser = <>, + + ok = storage:delete(?USERSBUCK, ComplUser), + ok = storage:delete_set(?COOKIESBUCK, [{user, ComplUser}]).