@@ -5,7 +5,6 @@ import ProjectM36.Server
55import Control.Concurrent
66import qualified Network.WebSockets as WS
77import Network.Transport.TCP (decodeEndPointAddress)
8−import Debug.Trace
98
109main :: IO ()
1110main = do
@@ -22,5 +21,5 @@ main = do
2221 address <- takeMVar addressMVar
2322 let Just (_, serverPort, _) = decodeEndPointAddress address
2423 --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)
2625