diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-24 17:13:28 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-24 17:13:28 -0400 |
| commit | 17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b (patch) | |
| tree | 3c8f21c0b17502e504396d6b42ff76be2fa51668 /Role/Downloader.hs | |
| parent | 337091314588b67620e61c2c80cbb6180f07d440 (diff) | |
| download | debug-me-17d76b2a59d496a2ffd6d2199b1c6ad563b0bb5b.tar.gz | |
fix downloader and watcher
Diffstat (limited to 'Role/Downloader.hs')
| -rw-r--r-- | Role/Downloader.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Role/Downloader.hs b/Role/Downloader.hs index 55d7b63..ede11a7 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -18,7 +18,7 @@ downloader _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 <- processSessionStart ochan logger + (st, _startoutput) <- processSessionStart ochan logger go logger st where go logger st = do @@ -29,5 +29,4 @@ downloader _ichan ochan sid = do _ <- logger $ User msg case o of ProtocolError e -> error ("Protocol error: " ++ e) - _ -> return () - go logger st + _ -> go logger st |