@@ -15,7 +15,7 @@
15-- determines whether the ESC is: Individual, part of a control key sequence, part of a meta key
15-- determines whether the ESC is: Individual, part of a control key sequence, part of a meta key
16-- combination.
16-- combination.
18−-- * 8 bit mode: UTF-8 cannot be input unamboguiously AFAIK. Does not require an escape delay.
18+-- * 8 bit mode: UTF-8 cannot be input unambiguously AFAIK. Does not require an escape delay.
20-- vty assumes 7 bit mode. Which is the default AFAIK.
20-- vty assumes 7 bit mode. Which is the default AFAIK.
@@ -77,17 +77,17 @@ inputForCurrentTerminal config = do
77-- "raw" mode is used for input.
77-- "raw" mode is used for input.
79-- * ISIG disabled
79-- * ISIG disabled
80−-- - enables keyboard combinations that result in signals. This should probably be a dynamic
80+-- - enables keyboard combinations that result in signals. TODO: should probably be a dynamic
83-- * ECHO disabled
83-- * ECHO disabled
84−-- - input is not echod to the output. Pobably should be a dynamic option.
84+-- - input is not echod to the output. TODO: should be a dynamic option.
86-- * ICANON disabled
86-- * ICANON disabled
87−-- - canonical mode (line mode) input is not used. Probably should be a dynamic option.
87+-- - canonical mode (line mode) input is not used. TODO: should be a dynamic option.
89-- * IEXTEN disabled
89-- * IEXTEN disabled
90−-- - extended functions are disabled. Uh. Whatever these are.
90+-- - extended functions are disabled. TODO: Uh. Whatever these are.
92inputForNameAndIO :: Config -> String -> Fd -> IO Input
92inputForNameAndIO :: Config -> String -> Fd -> IO Input
93inputForNameAndIO config termName termFd = do
93inputForNameAndIO config termName termFd = do
@@ -97,7 +97,7 @@ inputForNameAndIO config termName termFd = do
98 input <- initInputForFd config classifyTable termFd
98 input <- initInputForFd config classifyTable termFd
99 let pokeIO = Catch $ do
99 let pokeIO = Catch $ do
100− let e = error "(getsize in input layer)"
100+ let e = error "vty internal failure: this value should not propagate to users"
102 writeChan (input^.eventChannel) (EvResize e e)
102 writeChan (input^.eventChannel) (EvResize e e)
103 _ <- installHandler windowChange pokeIO Nothing
103 _ <- installHandler windowChange pokeIO Nothing