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
 catchIO_ :: IO a -> IO a -> IO a
 catchIO_ a h = Exception.catch a (\(_ :: IOException) -> h)
 
+catchIO :: IO a -> (IOException -> IO a)  -> IO a
+catchIO body handler = Exception.catch body handler
+
 handleIO_ = flip catchIO_
+handleIO = flip catchIO