diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-30 14:07:46 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-30 14:07:46 -0400 |
commit | a7c767c914d860e3176fdeacb5d00e4fc25c17d1 (patch) | |
tree | 4af6461c551a83765473b155caba92b5537146dc /Role | |
parent | 41d80e7d61c4915a6cc2995a5b167c422b9a461a (diff) | |
download | debug-me-a7c767c914d860e3176fdeacb5d00e4fc25c17d1.tar.gz |
more message improvements
Diffstat (limited to 'Role')
-rw-r--r-- | Role/Developer.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Role/Developer.hs b/Role/Developer.hs index d3fc11c..6f762a7 100644 --- a/Role/Developer.hs +++ b/Role/Developer.hs @@ -51,17 +51,19 @@ run' runner url = do developer :: TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan (MissingHashes AnyMessage) -> SessionID -> IO () developer dsv ichan ochan sid = withSessionLogger (Just "remote") sid $ \logger -> do sk <- genMySessionKey - (controlinput, controloutput) <- openControlWindow - displayInControlWindow controlinput - "Using gpg to sign the debug-me session key." spk <- myPublicKey sk (GpgSign True) + (controlinput, controloutput) <- openControlWindow displayInControlWindow controlinput "Connecting to the user's session ..." inRawMode $ do (devstate, startoutput) <- processSessionStart sk ochan logger dsv + displayInControlWindow controlinput + "Connected. You can now see what the user is doing." + displayInControlWindow controlinput + "(But, you can't type anything yet.)" emitOutput startoutput displayInControlWindow controlinput - "Waiting for the user to check your Gnupg key and grant access ..." + "Waiting for the user to check your Gnupg key and grant write access ..." authUser spk ichan ochan devstate logger >>= go controlinput controloutput logger devstate where |