16 lines
921 B
Plaintext
16 lines
921 B
Plaintext
$OpenBSD: patch-Commands_SetStatus_hs,v 1.2 2011/05/26 08:24:59 dcoppa Exp $
|
|
|
|
ghc7 fix: add explicit type signature to a catch
|
|
|
|
--- 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
|