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