diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-28 18:50:41 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-28 18:50:41 -0400 |
| commit | f65034502f2b94f2474c65ee968e9eb9861c2d93 (patch) | |
| tree | 87f97a9b38bf9af3ba32636d341019986a61be10 /Role/Watcher.hs | |
| parent | 175d89cb3d6914ddda68f3294ab172e29784d16d (diff) | |
| download | debug-me-f65034502f2b94f2474c65ee968e9eb9861c2d93.tar.gz | |
reorder "Using gpg to sign the debug-me session key" message before session start
Diffstat (limited to 'Role/Watcher.hs')
| -rw-r--r-- | Role/Watcher.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Role/Watcher.hs b/Role/Watcher.hs index 7b809f0..dd49621 100644 --- a/Role/Watcher.hs +++ b/Role/Watcher.hs @@ -5,6 +5,7 @@ import Log import Pty import CmdLine import SessionID +import Crypto import Role.Developer import Control.Concurrent.STM @@ -16,7 +17,8 @@ run = run' watcher . watchUrl watcher :: TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO () watcher dsv _ichan ochan sid = withSessionLogger sid $ \logger -> inRawMode $ do - (st, startoutput) <- processSessionStart ochan logger dsv + sk <- genMySessionKey + (st, startoutput) <- processSessionStart sk ochan logger dsv emitOutput startoutput go logger st where |