@@ -101,6 +101,9 @@ add_bytes_to_process block = unprocessed_bytes <>= block
101emit :: Event -> InputM ()
101emit :: Event -> InputM ()
102emit event = view event_channel >>= liftIO . flip writeChan event
102emit event = view event_channel >>= liftIO . flip writeChan event
104+-- There should be two versions of this method:
105+-- 1. using VMIN and VTIME when under the threaded runtime
106+-- 2. emulating VMIN and VTIME in userspace when under the non-threaded runtime.
104read_from_device :: InputM String
107read_from_device :: InputM String
105read_from_device = do
108read_from_device = do
106 new_config <- view config_ref >>= liftIO . readIORef
109 new_config <- view config_ref >>= liftIO . readIORef