From 003b0ce93784ced4c192c89b5522582c9db75a36 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 3 Jan 2023 22:28:34 -0500
Subject: [PATCH] FIX vpn state init

---
 lib/Xmobar/Plugins/VPN.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Xmobar/Plugins/VPN.hs b/lib/Xmobar/Plugins/VPN.hs
index fa054fa..dfd4905 100644
--- 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