[Haskell-cafe] Catch multiple exceptions using 'Control.Exception'

[Roman Cheplyaka]

* Nikita Karetnikov <nikita at karetnikov.org> [2013-07-03 15:50:16+0400]
> > Perhaps you can use `catches` [0]?
> 
> Maybe, but my idea is to replace 'syncExceptions' with a similar
> function.  Otherwise, it'll be necessary to change (at least) all
> functions that use 'syncExceptions'.  I'd like to avoid that.

Here you go:

  import Control.Exception
  import Data.Typeable

  syncExceptions :: SomeException -> Maybe SomeException
  syncExceptions e
    | Just _ <- cast e :: Maybe AsyncException = Nothing
    | otherwise = Just e

Roman