1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
-- |
-- Copyright: 2015 Joey Hess <id@joeyh.name>
-- License: BSD-2-clause
--
-- Concurrent output handling.
--
-- > import Control.Concurrent.Async
-- > import System.Console.Concurrent
-- >
-- > main = withConcurrentOutput $
-- > outputConcurrent "washed the car\n"
-- > `concurrently`
-- > outputConcurrent "walked the dog\n"
-- > `concurrently`
-- > createProcessConcurrent (proc "ls" [])
{-# LANGUAGE CPP #-}
module System.Console.Concurrent (
-- * Concurrent output
withConcurrentOutput,
Outputable(..),
outputConcurrent,
errorConcurrent,
ConcurrentProcessHandle,
#ifndef mingw32_HOST_OS
createProcessConcurrent,
#endif
waitForProcessConcurrent,
createProcessForeground,
flushConcurrentOutput,
lockOutput,
-- * Low level access to the output buffer
OutputBuffer,
StdHandle(..),
bufferOutputSTM,
outputBufferWaiterSTM,
waitAnyBuffer,
waitCompleteLines,
emitOutputBuffer,
) where
import System.Console.Concurrent.Internal
|
