bf1715cea4
- Let it build with base-4. - Add explicite type signature to a catch. ok if it still builds with ghc-6.12.3, dcoppa@ (maintainer) test-build with ghc-6.12.3 by Dawe <dawedawe at gmx dot de>
13 lines
868 B
Plaintext
13 lines
868 B
Plaintext
$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
|