ft: 代码修改

src/eWSrv.erl

@@ -18,7 +18,7 @@ stop() ->
    application:stop(eWSrv).
 
 wSrvName(Port) ->
-   binary_to_atom(<<"$WSrv", (integer_to_binary(Port))/bianry>>).
+   binary_to_atom(<<"$WSrv", (integer_to_binary(Port))/binary>>).
 
 openSrv(Port, WsOpts) ->
    T1WsOpts = lists:keystore(conMod, 1, WsOpts, {conMod, wsHttp}),
@@ -28,7 +28,7 @@ openSrv(Port, WsOpts) ->
    NewTcpOpts = wsUtil:mergeOpts(?DefWsOpts, TcpOpts),
    LWsOpts = lists:keystore(tcpOpts, 1, T2WsOpts, {tcpOpts, NewTcpOpts}),
 
-   WSrvName = wSvNrame(Port),
+   WSrvName = wSrvName(Port),
 
    case ?wsGLV(sslOpts, WsOpts, false) of
       false ->
@@ -56,7 +56,7 @@ closeSrv(WSrvNameOrPort) ->
    WSrvName =
       case is_integer(WSrvNameOrPort) of
          true ->
-            wSvNrame(WSrvNameOrPort);
+            wSrvName(WSrvNameOrPort);
          _ ->
             WSrvNameOrPort
       end,