diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-21 19:45:09 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-21 19:45:09 -0400 |
commit | 378770cde6fb9fd85983c05eab9eeff2e34398c2 (patch) | |
tree | 761273cdf6cc507db3fb1f6d7a2658d1fd799214 /Role/Developer.hs | |
parent | a5f677919c2db47149e545165c9cacbf2c6b07b4 (diff) | |
download | debug-me-378770cde6fb9fd85983c05eab9eeff2e34398c2.tar.gz |
working toward getting developer mode connection to server working
Diffstat (limited to 'Role/Developer.hs')
-rw-r--r-- | Role/Developer.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index deceb6d..a53e841 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -8,6 +8,8 @@ import Log import Crypto import CmdLine import WebSockets +import SessionID +import Pty import Control.Concurrent.Async import Control.Concurrent.STM @@ -19,8 +21,8 @@ import Data.List run :: DeveloperOpts -> IO () run os = runClientApp $ clientApp (ConnectMode (T.pack (debugUrl os))) developer -developer :: TChan (Message Entered) -> TChan (Message Seen) -> IO () -developer ichan ochan = withLogger "debug-me-developer.log" $ \logger -> do +developer :: TChan (Message Entered) -> TChan (Message Seen) -> SessionID -> IO () +developer ichan ochan _ = inRawMode $ withLogger "debug-me-developer.log" $ \logger -> do -- Start by reading the initial two messages from the user side, -- their session key and the startup message. sessionmsg <- atomically $ readTChan ochan |