helic-0.6.0.0: lib/Helic/Tmux.hs

{-# options_haddock prune #-}

-- |Tmux Helpers, Internal
module Helic.Tmux where

import qualified Polysemy.Process as Process
import Polysemy.Process (Process, withProcess_)

import Helic.Data.Event (Event (Event))

sendToTmux ::
  ∀ o r .
  Members [Scoped_ (Process ByteString o), Log] r =>
  Event ->
  Sem r ()
sendToTmux (Event _ _ _ text) =
  withProcess_ do
    Process.send (encodeUtf8 text)