summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDimitri Sokolyuk <demon@dim13.org>2015-11-02 19:25:40 +0100
committerDimitri Sokolyuk <demon@dim13.org>2015-11-02 19:26:15 +0100
commit9f121da4fe4f4bca71aa1fbfc80d04d155a33754 (patch)
treef602447ff8142a23aaa060320e73f2c3dbb1dcc6
parent3d768f3af84eece72e8b8a4683b069278edaa280 (diff)
Use proplists
-rw-r--r--src/tda.erl14
1 files changed, 3 insertions, 11 deletions
diff --git a/src/tda.erl b/src/tda.erl
index 0fcc9d3..9c667d9 100644
--- a/src/tda.erl
+++ b/src/tda.erl
@@ -85,14 +85,6 @@ decode(Data) ->
end.
dispatch(<<Head:8,_/binary>>) ->
- case Head of
- 96 -> acse; % aarq
- 97 -> acse; % aare
- 98 -> acse; % rlrq
- 99 -> acse; % rlre
- 100 -> acse; % abrt
- 161 -> rose; % invoke
- 162 -> rose; % returnResult
- 163 -> rose; % returnError
- 164 -> rose % reject
- end.
+ proplists:get_value(Head, [{96, acse}, {97, acse}, {98, acse},
+ {99, acse}, {100, acse}, {161, rose},
+ {162, rose}, {163, rose}, {164, rose}]).