diff options
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 |