@@ -15,7 +15,7 @@
1515-- determines whether the ESC is: Individual, part of a control key sequence, part of a meta key
1616-- combination.
1717--
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.
1919--
2020-- vty assumes 7 bit mode. Which is the default AFAIK.
2121--
@@ -77,17 +77,17 @@ inputForCurrentTerminal config = do
7777-- "raw" mode is used for input.
7878--
7979-- * 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
8181-- option.
8282--
8383-- * 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.
8585--
8686-- * 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.
8888--
8989-- * IEXTEN disabled
90−-- - extended functions are disabled. Uh. Whatever these are.
90+-- - extended functions are disabled. TODO: Uh. Whatever these are.
9191--
9292inputForNameAndIO :: Config -> String -> Fd -> IO Input
9393inputForNameAndIO config termName termFd = do
@@ -97,7 +97,7 @@ inputForNameAndIO config termName termFd = do
9797 setAttrs
9898 input <- initInputForFd config classifyTable termFd
9999 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"
101101 setAttrs
102102 writeChan (input^.eventChannel) (EvResize e e)
103103 _ <- installHandler windowChange pokeIO Nothing