@@ -1,4 +1,6 @@
1-- Copyright 2009-2010 Corey O'Connor
1-- Copyright 2009-2010 Corey O'Connor
2+-- | Xterm output driver. This uses the Terminfo driver with some
3+-- extensions for Xterm.
2module Graphics.Vty.Output.XTermColor
4module Graphics.Vty.Output.XTermColor
3 ( reserveTerminal
5 ( reserveTerminal
@@ -23,7 +25,7 @@ import Data.List (isInfixOf)
23import Data.Maybe (catMaybes)
25import Data.Maybe (catMaybes)
24import Data.Monoid ((<>))
26import Data.Monoid ((<>))
26−-- | Initialize the display to UTF-8.
28+-- | Construct an Xterm output driver. Initialize the display to UTF-8.
27reserveTerminal :: ( Applicative m, MonadIO m ) => String -> Fd -> m Output
29reserveTerminal :: ( Applicative m, MonadIO m ) => String -> Fd -> m Output
28reserveTerminal variant outFd = liftIO $ do
30reserveTerminal variant outFd = liftIO $ do
29 let flushedPut = void . fdWrite outFd
31 let flushedPut = void . fdWrite outFd