@@ -4,6 +4,9 @@
4-- | The input layer used to be a single function that correctly accounted for the non-threaded
4-- | The input layer used to be a single function that correctly accounted for the non-threaded
5-- runtime by emulating the terminal VMIN adn VTIME handling. This has been removed and replace with
5-- runtime by emulating the terminal VMIN adn VTIME handling. This has been removed and replace with
6-- a more straightforward parser. The non-threaded runtime is no longer supported.
6-- a more straightforward parser. The non-threaded runtime is no longer supported.
8+-- This is an example of an algorithm where code coverage could be high, even 100%, but the
9+-- behavior is still under tested. I should collect more of these examples...
7module Graphics.Vty.Input.Internal where
10module Graphics.Vty.Input.Internal where
9import Graphics.Vty.Input.Events
12import Graphics.Vty.Input.Events
@@ -222,8 +225,6 @@ attributeControl fd = do
222 unsetAttrs = setTerminalAttributes fd original Immediately
225 unsetAttrs = setTerminalAttributes fd original Immediately
223 return (setAttrs,unsetAttrs)
226 return (setAttrs,unsetAttrs)
225−-- This is an example of an algorithm where code coverage could be high, even 100%, but the
226−-- algorithm still under tested. I should collect more of these examples...
227initInputForFd :: Config -> ClassifyTable -> Fd -> IO Input
228initInputForFd :: Config -> ClassifyTable -> Fd -> IO Input
228initInputForFd config classifyTable inFd = do
229initInputForFd config classifyTable inFd = do
229 applyTimingConfig inFd config
230 applyTimingConfig inFd config