main :: IO ()
main = WS.runServer "0.0.0.0" 9160 $ \pending -> do
    conn <- WS.acceptRequest pending
    echo conn
main :: IO ()
main = WS.runServer "0.0.0.0" 9160 $ \pending -> do
    conn <- WS.acceptRequest pending
    echo conn
main = WS.runServer "0.0.0.0" 9160 $ \pending -> do
    conn <- WS.acceptRequest pending
    echo conn