aboutsummaryrefslogtreecommitdiffstats
path: root/client
diff options
context:
space:
mode:
authorAlexander Sulfrian <alexander@sulfrian.net>2010-10-14 11:30:22 +0200
committerAlexander Sulfrian <alexander@sulfrian.net>2010-10-14 11:30:22 +0200
commit0b05c03224e9abd367597ba09aa291083a466a7b (patch)
treef8a5176b74bd4472f83734766442d3cb2e4541f4 /client
parent40d28960b17bfe6b09fabdcfc0555c9db9cd5971 (diff)
downloaderlang-0b05c03224e9abd367597ba09aa291083a466a7b.tar.gz
erlang-0b05c03224e9abd367597ba09aa291083a466a7b.tar.xz
erlang-0b05c03224e9abd367597ba09aa291083a466a7b.zip
removed code duplication
Diffstat (limited to 'client')
-rw-r--r--client/client.erl34
1 files changed, 8 insertions, 26 deletions
diff --git a/client/client.erl b/client/client.erl
index aab0b4e..ec44401 100644
--- a/client/client.erl
+++ b/client/client.erl
@@ -58,41 +58,23 @@ list() ->
{error, not_logged_in}
end.
-handle(list, Server) ->
- Server ! list,
+send_to_server(Cmd, Server) ->
+ Server ! cmd,
receive
{ok, Msg} ->
{Msg, Server};
Msg ->
{Msg, Server}
- end;
+ end.
+handle(list, Server) ->
+ send_to_server(list, Server);
handle(get_votes, Server) ->
- Server ! get_votes,
- receive
- {ok, Msg} ->
- {Msg, Server};
- Msg ->
- {Msg, Server}
- end;
-
+ send_to_server(get_votes, Server);
handle({vote, Artist, Title}, Server) ->
- Server ! {vote, Artist, Title},
- receive
- {ok, Msg} ->
- {Msg, Server};
- Msg ->
- {Msg, Server}
- end;
-
+ send_to_server({vote, Artist, Title}, Server);
handle({devote, Artist, Title}, Server) ->
- Server ! {vote, Artist, Title},
- receive
- {ok, Msg} ->
- {Msg, Server};
- Msg ->
- {Msg, Server}
- end;
+ send_to_server({devote, Artist, Title}, Server);
handle({change_state, NewState}, _) ->
{{ok}, NewState};