mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-12-18 19:11:37 +03:00
15 lines
463 B
Haskell
15 lines
463 B
Haskell
|
module Utils where
|
||
|
|
|
||
|
|
import Control.Exception (ArithException, ArrayException, SomeException)
|
||
|
|
import qualified Control.Monad.Catch as C
|
||
|
|
|
||
|
|
|
||
|
|
catchArithException :: C.MonadCatch m => m a -> (ArithException -> m a) -> m a
|
||
|
|
catchArithException = C.catch
|
||
|
|
|
||
|
|
catchArrayException :: C.MonadCatch m => m a -> (ArrayException -> m a) -> m a
|
||
|
|
catchArrayException = C.catch
|
||
|
|
|
||
|
|
catchSomeException :: C.MonadCatch m => m a -> (SomeException -> m a) -> m a
|
||
|
|
catchSomeException = C.catch
|