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/Widgets/Taskbar.hs | |
| parent | 8dab9ed128f5a7f80917d1eb90eed902e1a333b6 (diff) | |
| download | phi-180285af85c4c6c02c885dd6c276a33e0bf00d1a.tar phi-180285af85c4c6c02c885dd6c276a33e0bf00d1a.zip | |
Fix message bus memory leak
Diffstat (limited to 'lib/Phi/Widgets/Taskbar.hs')
| -rw-r--r-- | lib/Phi/Widgets/Taskbar.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/Widgets/Taskbar.hs b/lib/Phi/Widgets/Taskbar.hs index 24f6611..a5a6fdc 100644 --- a/lib/Phi/Widgets/Taskbar.hs +++ b/lib/Phi/Widgets/Taskbar.hs @@ -165,7 +165,8 @@ instance WidgetClass Taskbar where type WidgetData Taskbar = TaskbarState initWidget (Taskbar _) phi dispvar = do - forkIO $ taskbarRunner phi dispvar + phi' <- dupPhi phi + forkIO $ taskbarRunner phi' dispvar return $ TaskbarState 0 0 (-1) [] M.empty M.empty M.empty M.empty |