
3 Jul
2013
3 Jul
'13
6:17 p.m.
* Nikita Karetnikov
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