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