[Gtk2hs-commit] gtk2hs/tools/callbackGen HookGenerator.hs,1.1,1.2

[Duncan C. <dun...@us...>]

Update of /cvsroot/gtk2hs/gtk2hs/tools/callbackGen
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31461/tools/callbackGen

Modified Files:
	HookGenerator.hs 
Log Message:
added extra function for converting GError exceptions to ordinary user
errors and use it in the callback generator to wrap callbacks in GError
exception handler.


Index: HookGenerator.hs
===================================================================
RCS file: /cvsroot/gtk2hs/gtk2hs/tools/callbackGen/HookGenerator.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- HookGenerator.hs	15 Nov 2003 09:46:20 -0000	1.1
+++ HookGenerator.hs	17 Jul 2004 04:01:58 -0000	1.2
@@ -463,7 +463,7 @@
   indent 1.ss "after obj user =".
   indent 1.ss "do".
   indent 2.ss "hPtr <- mkHandler_".ident.
-  indent 3.ss "(\\_ ".mkLambdaArgs sig.ss "-> do".
+  indent 3.ss "(\\_ ".mkLambdaArgs sig.ss "-> failOnGError $ do".
   mkMarshExec sig.
   indent 4.ss "liftM ".mkMarshRet sig.ss " $".
   indent 5.ss "user".mkFuncArgs sig.