diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-04-27 09:39:55 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-04-27 09:47:07 -0400 |
| commit | 937b55549b4ba72b0392d7e139e592a40eec2101 (patch) | |
| tree | d11a33aff3bd54c6bc66058028657915481181de /Role/Downloader.hs | |
| parent | c13c732ac4174dca2341a8b3ea84582c01ce5cde (diff) | |
| download | debug-me-937b55549b4ba72b0392d7e139e592a40eec2101.tar.gz | |
rename LogMessage to AnyMessage
Not related to the Log anymore.
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 243410b..d49b4ec 100644 --- a/Role/Downloader.hs +++ b/Role/Downloader.hs @@ -13,7 +13,7 @@ import Data.Time.Clock.POSIX run :: DownloadOpts -> IO () run = run' downloader . downloadUrl -downloader :: TMChan (Message Entered) -> TMChan LogMessage -> SessionID -> IO () +downloader :: TMChan (Message Entered) -> TMChan AnyMessage -> SessionID -> IO () downloader _ichan ochan sid = do let logfile = sessionLogFile "." sid putStrLn $ "Starting download to " ++ logfile |