Author: bdonlan
Date: 2005-12-09 21:46:45 -0500 (Fri, 09 Dec 2005)
New Revision: 948
Modified:
trunk/erlang/server/haver_protocol.erl
trunk/erlang/server/haver_worker.erl
Log:
Fix extra tab after messages, and a server crash (and possible compile error)
Modified: trunk/erlang/server/haver_protocol.erl
===================================================================
--- trunk/erlang/server/haver_protocol.erl 2005-12-09 22:24:04 UTC (rev
947)
+++ trunk/erlang/server/haver_protocol.erl 2005-12-10 02:46:45 UTC (rev
948)
@@ -27,6 +27,7 @@
end.
encode_([]) -> [];
+encode_([E]) -> E;
encode_([H|T]) -> lists:append(H, [$\t|encode_(T)]).
encode(L) -> encode_(lists:map(fun(W) -> escape(W) end, L)).
Modified: trunk/erlang/server/haver_worker.erl
===================================================================
--- trunk/erlang/server/haver_worker.erl 2005-12-09 22:24:04 UTC (rev
947)
+++ trunk/erlang/server/haver_worker.erl 2005-12-10 02:46:45 UTC (rev
948)
@@ -302,9 +302,9 @@
haver_sendline(["BYE", Detail]),
gen_tcp:close(get(socket)),
exit({ quit, "bye", Detail});
- { line, [ "BYE" ] } -> self() ! { line, [ "BYE", "bye" ] }
+ { line, [ "BYE" ] } -> self() ! { line, [ "BYE", "bye" ] };
{ line, [ L | T ] } ->
- io:format("unmatched line: ~p~n", [L|T]),
+ io:format("unmatched line: ~p~n", [[L|T]]),
haver_sendline(["FAIL", L, "unknown.cmd"]),
ok;
{ line, L } ->
