HAppS-Util-0.9.2: src/HAppS/Util/Exception.hs

module HAppS.Util.Exception where

import Control.Exception as E

catchSome = E.catchJust interestingExceptions

interestingExceptions x@(ArithException _) = Just x
interestingExceptions x@(ArrayException _) = Just x
interestingExceptions _                    = Nothing