From 0d024ab649f3f74ee16f2c6d7dbfb2bfc67064a8 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Tue, 3 Jan 2023 22:31:29 -0500
Subject: [PATCH] REF clean up type alias

---
 lib/Xmobar/Plugins/VPN.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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