module Text.Colour.Term where
import System.IO
import Text.Colour
import Text.Colour.Capabilities.FromEnv
putChunks :: [Chunk] -> IO ()
putChunks :: [Chunk] -> IO ()
putChunks = Handle -> [Chunk] -> IO ()
hPutChunks Handle
stdout
hPutChunks :: Handle -> [Chunk] -> IO ()
hPutChunks :: Handle -> [Chunk] -> IO ()
hPutChunks Handle
h [Chunk]
cs = do
TerminalCapabilities
tc <- Handle -> IO TerminalCapabilities
getTerminalCapabilitiesFromHandle Handle
h
TerminalCapabilities -> Handle -> [Chunk] -> IO ()
hPutChunksWith TerminalCapabilities
tc Handle
h [Chunk]
cs