Process Stdin example

[locallycompact]

Hi, I'm struggling to figure out how to do the equivalent of this in typed-process. Is there an example of how to use stdin with the different RIO.Process proc?

import RIO.Process
import qualified System.Process.Typed as S
let catConfig = setStdin (byteStringInput "foo")
                      $ S.proc "less" []
runProcess catConfig

[snoyberg]

Is this what you're looking for?

#!/usr/bin/env stack
-- stack --resolver lts-13.21 script
{-# LANGUAGE NoImplicitPrelude, OverloadedStrings #-}
import RIO
import RIO.Process
import qualified System.Process.Typed as S

main :: IO ()
main =
  runSimpleApp $
  proc "less" [] $
  runProcess_ . setStdin (byteStringInput "foo")