diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 02:11:09 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 02:11:09 +0200 |
commit | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (patch) | |
tree | e94763647502151ee8034777680f5c991a625aaf /lib/Phi/Widget.hs | |
parent | 8dab9ed128f5a7f80917d1eb90eed902e1a333b6 (diff) | |
download | phi-180285af85c4c6c02c885dd6c276a33e0bf00d1a.tar phi-180285af85c4c6c02c885dd6c276a33e0bf00d1a.zip |
Fix message bus memory leak
Diffstat (limited to 'lib/Phi/Widget.hs')
-rw-r--r-- | lib/Phi/Widget.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Phi/Widget.hs b/lib/Phi/Widget.hs index 7bce659..0756e19 100644 --- a/lib/Phi/Widget.hs +++ b/lib/Phi/Widget.hs @@ -96,8 +96,7 @@ deriving instance Show WidgetState createWidgetState :: Phi -> Display -> Widget -> IO WidgetState createWidgetState phi disp (Widget w) = do - phi' <- dupPhi phi - priv <- initWidget w phi' disp + priv <- initWidget w phi disp return WidgetState { stateWidget = w , stateX = 0 , stateY = 0 |