machines-process 7.0.0.1 → 7.0.0.2

raw patch · 2 files changed

+9/−1 lines, 2 filesPVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

API changes (from Hackage documentation)

Files

• machines-process.cabal +1/−1
• src/System/Process/Machine.hs +8/−0

@@ -1,5 +1,5 @@ name:                machines-process-version:             7.0.0.1+version:             7.0.0.2 synopsis:            Process (system) utilities for the machines library homepage:            http://github.com/aloiscochard/machines-process license:             Apache-2.0

@@ -9,6 +9,7 @@  type ProcessMachines a b k = (Maybe (ProcessT IO a b), Maybe (MachineT IO k a), Maybe (MachineT IO k a)) + mStdIn :: IOSource a -> ProcessMachines a a0 k0 -> IO () mStdIn ms (Just stdIn, _, _)  = runT_ $ stdIn <~ ms mStdIn _  _                   = return ()@@ -16,6 +17,13 @@ mStdOut :: ProcessT IO a b -> ProcessMachines a a0 k0 -> IO [b] mStdOut mp (_, Just stdOut, _)  = runT $ mp <~ stdOut mStdOut _  _                    = return []++mStdOutputs :: ProcessT IO (Either a a) b -> ProcessMachines a a0 (Is a0) -> IO [b]+mStdOutputs mp (_, Just stdOut, Just stdErr)  = runT $ mp <~ wye stdErr stdOut slurp where+  slurp = repeatedly $ do+    res <- awaits Z+    yield res+mStdOutputs _  _                              = return []  {-- mStdOut_ :: ProcessT IO a b -> ProcessMachines a a0 k0 -> IO ()