$OpenBSD: patch-Commands_Update_hs,v 1.2 2014/12/19 09:27:46 dcoppa Exp $

port to ghc-7.8

--- Commands/Update.hs.orig	Tue Nov  8 16:49:38 2011
+++ Commands/Update.hs	Thu Dec 18 20:58:44 2014
@@ -89,7 +89,7 @@ updateThePodcast gi pt meter dlentry dltok status resu
        case feed of
          Nothing ->                         -- some problem with the feed
            case status of 
-             Terminated sigINT -> return () -- Ctrl-C is not a tackable error
+             Terminated sigINT _ -> return () -- Ctrl-C is not a tackable error
              _ -> do curtime <- now
                      let newpc = considerDisable gi
                            (pc {lastattempt = Just curtime,
@@ -157,8 +157,8 @@ getFeed meter pc (result, status) dltok =
                                  " *** " ++ (show . castid $ pc) ++ 
                                  ": Failure parsing feed: " ++ x ++ "\n"
                                return Nothing
-         (Failure, Terminated sigINT) -> do w "\n   Ctrl-C hit; aborting!"
-                                            exitFailure
+         (Failure, Terminated sigINT _) -> do w "\n   Ctrl-C hit; aborting!"
+                                              exitFailure
          _ -> do writeMeterString stderr meter $
                   " *** " ++ (show . castid $ pc) ++ ": Failure downloading feed\n"
                  return Nothing
