@@ -1,6 +1,5 @@
11{-# LANGUAGE RecordWildCards #-}
22{-# LANGUAGE NamedFieldPuns #-}
3−
43-- | Output interface.
54--
65-- Access to the current terminal or a specific terminal device.
@@ -8,8 +7,8 @@
87-- See also:
98--
109-- 1. "Graphics.Vty.Output": This instantiates an abtract interface to the terminal interface based
11−-- on the TERM and COLORTERM environment variables.
12−--
10+-- on the TERM and COLORTERM environment variables.
11+--
1312-- 2. "Graphics.Vty.Output.Interface": Defines the generic interface all terminals need to implement.
1413--
1514-- 3. "Graphics.Vty.Output.TerminfoBased": Defines a terminal instance that uses terminfo for all
@@ -18,7 +17,7 @@
1817--
1918-- 4. "Graphics.Vty.Output.XTermColor": This module contains an interface suitable for xterm-like
2019-- terminals. These are the terminals where TERM == xterm. This does use terminfo for as many
21−-- control codes as possible.
20+-- control codes as possible.
2221module Graphics.Vty.Output ( module Graphics.Vty.Output
2322 , Output(..) -- \todo hide constructors
2423 , AssumedState(..)
@@ -28,7 +27,6 @@ module Graphics.Vty.Output ( module Graphics.Vty.Output
2827 )
2928 where
3029
31−
3230import Graphics.Vty.Prelude
3331
3432import Graphics.Vty.Config
@@ -70,7 +68,7 @@ outputForConfig Config{ outputFd = Just fd, termName = Just termName, .. } = do
7068 return t
7169outputForConfig config = (<> config) <$> standardIOConfig >>= outputForConfig
7270
73−-- | Sets the cursor position to the given output column and row.
71+-- | Sets the cursor position to the given output column and row.
7472--
7573-- This is not necessarially the same as the character position with the same coordinates.
7674-- Characters can be a variable number of columns in width.
@@ -90,11 +88,10 @@ hideCursor t = do
9088 bounds <- displayBounds t
9189 dc <- displayContext t bounds
9290 liftIO $ outputByteBuffer t $ writeToByteString $ writeHideCursor dc
93−
91+
9492-- | Shows the cursor
9593showCursor :: MonadIO m => Output -> m ()
9694showCursor t = do
9795 bounds <- displayBounds t
9896 dc <- displayContext t bounds
9997 liftIO $ outputByteBuffer t $ writeToByteString $ writeShowCursor dc
100−