tlsWrite :: Writeable a => Context -> a -> IO ()
tlsWrite ctx cmd = do
        sendData ctx $ toCommand cmd
        contextFlush ctx
        -- printf ">>> %s\n" $ toDebug cmd
        -- hFlush stdout
tlsWrite :: Writeable a => Context -> a -> IO ()
tlsWrite ctx cmd = do
        sendData ctx $ toCommand cmd
        contextFlush ctx
        -- printf ">>> %s\n" $ toDebug cmd
        -- hFlush stdout
tlsWrite ctx cmd = do
        sendData ctx $ toCommand cmd
        contextFlush ctx
        -- printf ">>> %s\n" $ toDebug cmd
        -- hFlush stdout