diff options
Diffstat (limited to 'Role/Downloader.hs')
| -rw-r--r-- | Role/Downloader.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Role/Downloader.hs b/Role/Downloader.hs index 094e7de..d013344 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -14,7 +14,7 @@ import Data.Time.Clock.POSIX run :: DownloadOpts -> IO () run = run' downloader . downloadUrl -downloader :: TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO () +downloader :: TMVar (TVar DeveloperState) -> TMChan (Message Entered) -> TMChan (MissingHashes AnyMessage) -> SessionID -> IO () downloader dsv _ichan ochan sid = do let logfile = sessionLogFile "." sid putStrLn $ "Starting download to " ++ logfile |