* Nikita Karetnikov <nik...@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
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
