$OpenBSD: patch-Download_hs,v 1.3 2013/08/12 08:03:18 dcoppa Exp $

port to ghc-7.6

--- Download.hs.orig	Tue Nov  8 16:49:38 2011
+++ Download.hs	Mon Aug 12 11:53:56 2013
@@ -43,7 +43,7 @@ import System.Posix.Process
 import System.Posix.Types
 import System.Posix.IO
 import Data.Hash.MD5
-import Control.Exception(evaluate)
+import qualified Control.Exception as E
 
 data Result = Success | Failure
             deriving (Eq, Show, Read)
@@ -74,7 +74,8 @@ getCurlConfig =
     do ad <- getAppDir
        return $ ad ++ "/curlrc"
 
-getsize fp = catch (getFileStatus fp >>= (return . Just . fileSize))
+getsize fp = (E.catch :: IO a -> (IOError -> IO a) -> IO a)
+             (getFileStatus fp >>= (return . Just . fileSize))
              (\_ -> return Nothing)
 
 {- | Begin the download process on the given URL.
