Fix message bus memory leak

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

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 []

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