From: Daniel W. <dm...@lu...> - 2012-11-03 13:53:58
|
diffing dir... Sat Nov 3 13:53:04 GMT 2012 Daniel Wagner <da...@wa...> * whitespace only Ignore-this: b76ab22da8e3f076d92952ee54a14d20 hunk ./glib/System/Glib/Signals.chs 201 -foreign import ccall "wrapper" mkDestructor :: IO () -> IO GClosureNotify [_^I_] [_$_] - [_^I_] [_$_] +foreign import ccall "wrapper" mkDestructor :: IO () -> IO GClosureNotify + hunk ./glib/System/Glib/Signals.chs 204 -mkFunPtrClosureNotify hPtr = do [_^I_] [_$_] - dRef <- newIORef nullFunPtr [_^I_] [_$_] - dPtr <- mkDestructor $ do [_^I_] [_$_] - freeHaskellFunPtr hPtr [_^I_] [_$_] - dPtr <- readIORef dRef [_^I_] [_$_] - freeHaskellFunPtr dPtr [_^I_] [_$_] - writeIORef dRef dPtr [_^I_] [_$_] +mkFunPtrClosureNotify hPtr = do + dRef <- newIORef nullFunPtr + dPtr <- mkDestructor $ do + freeHaskellFunPtr hPtr + dPtr <- readIORef dRef + freeHaskellFunPtr dPtr + writeIORef dRef dPtr hunk ./gtk/Graphics/UI/Gtk/Abstract/Object.chs 174 + hunk ./gtk/Graphics/UI/Gtk/General/General.chs 418 + |