diff options
Diffstat (limited to 'Role/Downloader.hs')
| -rw-r--r-- | Role/Downloader.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Role/Downloader.hs b/Role/Downloader.hs index 4d5f6cc..c3d6b73 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -4,6 +4,7 @@ import Types import Log import CmdLine import SessionID +import Crypto import Role.Developer import Control.Concurrent.STM @@ -19,7 +20,8 @@ downloader dsv _ichan ochan sid = do putStrLn $ "Starting download to " ++ logfile putStrLn "(Will keep downloading until the debug-me session is done.)" withLogger logfile $ \logger -> do - (st, _startoutput) <- processSessionStart ochan logger dsv + sk <- genMySessionKey + (st, _startoutput) <- processSessionStart sk ochan logger dsv go logger st where go logger st = do |