Update of /cvsroot/hoc/hoc/Bindings/AdditionalCode/Foundation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30858/Foundation
Added Files:
NSException.hs
Log Message:
Add NSException.hs (in AdditionalCode) that should have been committed along with the
"monster commit" in September.
It exports the catchNS function for catching NSExceptions.
--- NEW FILE: NSException.hs ---
--X catchNS
import Control.Exception ( catchDyn )
import HOC.Exception ( WrappedNSException(..) )
-- CUT HERE
catchNS :: IO a -> (NSException () -> IO a) -> IO a
catchNS action handler
= action `catchDyn` \(WrappedNSException exc) -> handler (castObject exc)
|
