catch :: (InUnion fs IO, E.Exception e) => Eff fs a -> (e -> Eff fs a) -> Eff fs a
catch act handler = inj (E.catch (return act) (return . handler)) `Then` id
catch :: (InUnion fs IO, E.Exception e) => Eff fs a -> (e -> Eff fs a) -> Eff fs a
catch act handler = inj (E.catch (return act) (return . handler)) `Then` id
catch act handler = inj (E.catch (return act) (return . handler)) `Then` id