runApp' :: S.Socket
       -> WS.ConnectionOptions
       -> WS.ServerApp
       -> IO ()
runApp' socket opts app = do
    pending <- WS.makePendingConnection socket opts
    app pending
runApp' :: S.Socket
       -> WS.ConnectionOptions
       -> WS.ServerApp
       -> IO ()
runApp' socket opts app = do
    pending <- WS.makePendingConnection socket opts
    app pending
runApp' socket opts app = do
    pending <- WS.makePendingConnection socket opts
    app pending