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