mirror of
https://github.com/sayo-hs/heftia.git
synced 2024-11-30 00:36:55 +03:00
26 lines
574 B
Haskell
26 lines
574 B
Haskell
-- SPDX-License-Identifier: MPL-2.0
|
|
|
|
module Main where
|
|
|
|
import Control.Monad.Hefty (liftIO, (&))
|
|
import Control.Monad.Hefty.Concurrent.Subprocess (
|
|
CreateProcess (stdout),
|
|
StdStream (CreatePipe),
|
|
SubprocResult,
|
|
readStdout'',
|
|
runSubprocIO,
|
|
scope,
|
|
shell,
|
|
)
|
|
import Control.Monad.Hefty.Unlift (runUnliftIO)
|
|
|
|
main :: IO ()
|
|
main = runUnliftIO . runSubprocIO $ do
|
|
r <- scope @"echo" @SubprocResult (shell "echo a b c") {stdout = CreatePipe} \_ -> do
|
|
readStdout'' @"echo"
|
|
print r & liftIO
|
|
|
|
{-
|
|
SubprocScopeResult ExitSuccess "a b c\n"
|
|
-}
|