Invoke bash and send commands

Main.hs

module Main (main) where

import           Control.Concurrent (forkIO)
import           Control.Monad      (forM_)
import           System.IO          (hFlush, hGetContents, hPutStr)
import           System.Process     (createProcess, proc, StdStream(..), CreateProcess(..))

testScript :: [String]
testScript = [ "ls -lR"
             , "sleep 5"
             , "ps awx"
             , "sleep 5"
             , "echo THE-END"]

main :: IO ()
main = do
    let p = (proc "bash" ["-evx"]){ std_in = CreatePipe, std_out = CreatePipe, std_err = Inherit }
    (Just hIn, Just hOut, _, _) <-createProcess p
    forkIO $ do
        forM_ testScript $ \cmd -> do
            hPutStr hIn cmd
            hPutStr hIn "\n"
        hFlush hIn
    putStr =<< hGetContents hOut

Fixed in SHA: 623660b1d596c0df6b151e732d9481c58948a4ad