diff options
| author | joe <joe@jerkface.net> | 2013-07-08 09:47:25 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-07-08 09:47:25 -0400 |
| commit | d163ee7393bcfcc2503698ea58db646546cfb55f (patch) | |
| tree | 5a406380dea057963a8a4aa1a69790342bedd902 /Presence/ControlMaybe.hs | |
| parent | 8c3c479be72733654665664200c1f51b41f4eaac (diff) | |
clientRequestsSubscription work in progress...
Diffstat (limited to 'Presence/ControlMaybe.hs')
| -rw-r--r-- | Presence/ControlMaybe.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Presence/ControlMaybe.hs b/Presence/ControlMaybe.hs index 37f6f93c..69a38f71 100644 --- a/Presence/ControlMaybe.hs +++ b/Presence/ControlMaybe.hs | |||
| @@ -15,5 +15,9 @@ whenJust acn f = do | |||
| 15 | catchIO_ :: IO a -> IO a -> IO a | 15 | catchIO_ :: IO a -> IO a -> IO a |
| 16 | catchIO_ a h = Exception.catch a (\(_ :: IOException) -> h) | 16 | catchIO_ a h = Exception.catch a (\(_ :: IOException) -> h) |
| 17 | 17 | ||
| 18 | catchIO :: IO a -> (IOException -> IO a) -> IO a | ||
| 19 | catchIO body handler = Exception.catch body handler | ||
| 20 | |||
| 18 | handleIO_ = flip catchIO_ | 21 | handleIO_ = flip catchIO_ |
| 22 | handleIO = flip catchIO | ||
| 19 | 23 | ||