Purescript - remove exception in Aff

Main.purs

module Main where

import Prelude (($), bind,id, pure)
import Control.Monad.Eff.Exception (Error, EXCEPTION, catchException, message)
import Control.Monad.Aff (Aff, attempt)
import Control.Monad.Aff.Unsafe (unsafeInterleaveAff)
import Data.Either (either)

catchException' :: forall e a. (Error -> a) -> Aff (err :: EXCEPTION | e ) a -> Aff e a
catchException' handler f = do
  e <- attempt (unsafeInterleaveAff f)
  pure $ either handler id e