25 lines
1.0 KiB
Plaintext
25 lines
1.0 KiB
Plaintext
$OpenBSD: patch-DownloadQueue_hs,v 1.2 2014/12/19 09:27:46 dcoppa Exp $
|
|
|
|
port to ghc>=7.6
|
|
|
|
--- DownloadQueue.hs.orig Tue Nov 8 16:49:38 2011
|
|
+++ DownloadQueue.hs Mon Aug 12 11:53:56 2013
|
|
@@ -58,6 +58,7 @@ import Control.Concurrent.MVar
|
|
import Control.Concurrent
|
|
import Data.Char
|
|
import Control.Monad(when)
|
|
+import qualified Control.Exception as E
|
|
|
|
d = debugM "downloadqueue"
|
|
i = infoM "downloadqueue"
|
|
@@ -192,7 +193,8 @@ childthread dqmvar semaphore =
|
|
do callback x (DLEnded (dltok, status, result, messages))
|
|
-- Delete the messages file now that we don't
|
|
-- care about it anymore
|
|
- catch (removeFile (tokpath dltok ++ ".msg"))
|
|
+ (E.catch :: IO a -> (IOError -> IO a) -> IO a)
|
|
+ (removeFile (tokpath dltok ++ ".msg"))
|
|
(\_ -> return ())
|
|
return (dq {completedDownloads =
|
|
(x, dltok, result) :
|