client conn = (handle $ exnHandler conn) $ do
    forkIO . forever $ lGetLine >>= WS.sendBinaryData conn
    forever $ WS.receiveData conn >>= L.putStr
client conn = (handle $ exnHandler conn) $ do
    forkIO . forever $ lGetLine >>= WS.sendBinaryData conn
    forever $ WS.receiveData conn >>= L.putStr
client conn = (handle $ exnHandler conn) $ do
    forkIO . forever $ lGetLine >>= WS.sendBinaryData conn
    forever $ WS.receiveData conn >>= L.putStr