-- |Block until all pending messages have been sent.
flush :: Connection -> IO ()
flush conn = withForeignPtr conn connection_flush
flush :: Connection -> IO ()
flush conn = withForeignPtr conn connection_flush
flush conn = withForeignPtr conn connection_flush