module Network.IPFS.Process (runProc) where

import Network.IPFS.Prelude
import Network.IPFS.Process.Types

runProc ::
  ( MonadIO               m
  , MonadReader       cfg m
  , HasProcessContext cfg
  , HasLogFunc        cfg
  )
  => (ProcessConfig stdin stdout () -> m a)
  -> FilePath
  -> StreamIn  stdin
  -> StreamOut stdout
  -> [Opt]
  -> m a
runProc processor binPath inStream outStream opts =
  proc binPath opts <| processor
                  . setStdin  inStream
                  . setStdout outStream