ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF clean up type alias

This commit is contained in:
Nathan Dwarshuis 2023-01-03 22:31:29 -05:00
parent 003b0ce937
commit 0d024ab649
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Xmobar/Plugins/VPN.hs
View File

@ -52,7 +52,7 @@ instance Exec VPN where
data VEnv c = VEnv data VEnv c = VEnv
{ vClient :: !c { vClient :: !c
, vState :: !MutableVPNState , vState :: !(MVar VPNState)
, vDisplay :: !(VIO ()) , vDisplay :: !(VIO ())
, vEnv :: !SimpleApp , vEnv :: !SimpleApp
} }
@ -67,8 +67,6 @@ type VIO = RIO (VEnv SysClient)
type VPNState = S.Set ObjectPath type VPNState = S.Set ObjectPath
type MutableVPNState = MVar VPNState
initState :: VIO () initState :: VIO ()
initState = do initState = do
ot <- getVPNObjectTree ot <- getVPNObjectTree