aboutsummaryrefslogtreecommitdiffstats
path: root/server/dispatcher.erl
diff options
context:
space:
mode:
Diffstat (limited to 'server/dispatcher.erl')
-rw-r--r--server/dispatcher.erl10
1 files changed, 5 insertions, 5 deletions
diff --git a/server/dispatcher.erl b/server/dispatcher.erl
index 86b2627..a296c78 100644
--- a/server/dispatcher.erl
+++ b/server/dispatcher.erl
@@ -8,18 +8,18 @@ init() ->
dict:new().
handle(_, {register, {User, Password}}, Dict) ->
- case dict:find(User) of
- {ok, _} ->
+ case dict:find(User, Dict) of
+ {ok, _}->
{{error, duplicated_user}, Dict};
- true ->
+ _ ->
{{ok, user_created}, dict:store(User, Password, Dict)}
end;
handle(From, {login, {User, Password}}, Dict) ->
- case dict:find(User) of
+ case dict:find(User, Dict) of
{ok, Password} ->
{{ok, {logged_in, client:start(From)}}, Dict};
- true ->
+ _ ->
{{error, user_or_password_invalid}, Dict}
end;