87bb020 · project-m36 · git.iko.soy

git.iko.soy/project-m36

on master help sign in

remove extraneous debugging

87bb020AgentM10 years ago

src/bin/ProjectM36/Server/WebSocket/websocket-server.hs+1−2

@@ -5,7 +5,6 @@ import ProjectM36.Server

5import Control.Concurrent

6import qualified Network.WebSockets as WS

7import Network.Transport.TCP (decodeEndPointAddress)

8−import Debug.Trace

10main :: IO ()

9main :: IO ()

11main = do

10main = do

@@ -22,5 +21,5 @@ main = do

22 address <- takeMVar addressMVar

21 address <- takeMVar addressMVar

23 let Just (_, serverPort, _) = decodeEndPointAddress address

22 let Just (_, serverPort, _) = decodeEndPointAddress address

24 --this built-in server is apparently not meant for production use, but it's easier to test than starting up the wai or snap interfaces

23 --this built-in server is apparently not meant for production use, but it's easier to test than starting up the wai or snap interfaces

25− WS.runServer (traceShowId wsHost) (traceShowId (fromIntegral wsPort)) (websocketProxyServer (read serverPort) serverHost)

24+ WS.runServer wsHost (fromIntegral wsPort) (websocketProxyServer (read serverPort) serverHost)