[hoc-cvs] hoc/Bindings/AdditionalCode/Foundation NSException.hs,NONE,1.1

[Wolfgang T. <wth...@us...>]

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)