@@ -101,6 +101,9 @@ add_bytes_to_process block = unprocessed_bytes <>= block
101101emit :: Event -> InputM ()
102102emit event = view event_channel >>= liftIO . flip writeChan event
103103
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.
104107read_from_device :: InputM String
105108read_from_device = do
106109 new_config <- view config_ref >>= liftIO . readIORef