FIX vpn state init

2023-01-03 22:28:34 -05:00 · 2023-01-03 22:28:34 -05:00 · 003b0ce937
parent a0cdcce146
commit 003b0ce937
1 changed files with 1 additions and 1 deletions
--- a/lib/Xmobar/Plugins/VPN.hs
+++ b/lib/Xmobar/Plugins/VPN.hs
@ -34,7 +34,7 @@ instance Exec VPN where
  start (VPN (text, colors)) cb =
    withDBusClientConnection cb "VPN" $ \c -> do
      let dpy = displayMaybe cb iconFormatter . Just =<< readState
-      s <- newMVar S.empty
+      s <- newEmptyMVar
      mapRIO (VEnv c s dpy) $ do
        initState
        vpnAddedListener addedCallback