ymonad-0.1.0.0: src/YMonad/Backend/River/Encode.hs

module YMonad.Backend.River.Encode
  ( flushOutgoingBytes
  ) where

import qualified Data.ByteString as BS

import YMonad.Backend.River.Types
import YMonad.Protocol.Wayland.Wire

flushOutgoingBytes :: RiverRuntime -> (RiverRuntime, BS.ByteString)
flushOutgoingBytes rt =
  let bytes = encodeWireBatch (rrOutgoing rt)
  in (rt { rrOutgoing = [] }, bytes)