diff options
Diffstat (limited to 'lib/Phi/Widgets/Systray.hs')
-rw-r--r-- | lib/Phi/Widgets/Systray.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Phi/Widgets/Systray.hs b/lib/Phi/Widgets/Systray.hs index 60cfd76..b8b85d7 100644 --- a/lib/Phi/Widgets/Systray.hs +++ b/lib/Phi/Widgets/Systray.hs @@ -59,7 +59,8 @@ instance WidgetClass Systray where type WidgetData Systray = SystrayState initWidget (Systray) phi dispvar = do - forkIO $ systrayRunner phi dispvar + phi' <- dupPhi phi + forkIO $ systrayRunner phi' dispvar lastReset <- newIORef 0 return $ SystrayState phi (head . getScreens $ dispvar) 0 lastReset [] |