$OpenBSD: patch-Commands_SetStatus_hs,v 1.1 2011/01/02 10:40:48 kili Exp $
--- Commands/SetStatus.hs.orig	Wed Jul  2 17:32:27 2008
+++ Commands/SetStatus.hs	Fri Dec 31 12:35:07 2010
@@ -56,7 +56,7 @@ cmd_worker gi (args, episodes) = lock $
                       Just x -> return (read x)
                       Nothing -> fail "setstatus: --castid required; see hpodder setstatus --help"
        newstatus <- case lookup "status" args of
-                      Just x -> E.catch (E.evaluate (read x))
+                      Just x -> (E.catch :: IO a -> (IOError -> IO a) -> IO a) (E.evaluate (read x))
                                   (\_ -> fail $ "Invalid status supplied; use one of: " ++ possibleStatuses)
                       Nothing -> fail "setstatus: --status required; see hpodder setstatus --help"
        podcastlist <- getPodcast (gdbh gi) podcastid
