diff --git a/lib/Xmobar/Plugins/VPN.hs b/lib/Xmobar/Plugins/VPN.hs
index dfd4905..a4283db 100644
--- a/lib/Xmobar/Plugins/VPN.hs
+++ b/lib/Xmobar/Plugins/VPN.hs
@@ -52,7 +52,7 @@ instance Exec VPN where
 
 data VEnv c = VEnv
   { vClient :: !c
-  , vState :: !MutableVPNState
+  , vState :: !(MVar VPNState)
   , vDisplay :: !(VIO ())
   , vEnv :: !SimpleApp
   }
@@ -67,8 +67,6 @@ type VIO = RIO (VEnv SysClient)
 
 type VPNState = S.Set ObjectPath
 
-type MutableVPNState = MVar VPNState
-
 initState :: VIO ()
 initState = do
   ot <- getVPNObjectTree