REF generalize typeclass

2023-01-03 22:32:43 -05:00 · 2023-01-03 22:32:43 -05:00 · a61b17502d
parent 0d024ab649
commit a61b17502d
1 changed files with 1 additions and 1 deletions
--- a/lib/Xmobar/Plugins/VPN.hs
+++ b/lib/Xmobar/Plugins/VPN.hs
@ -57,7 +57,7 @@ data VEnv c = VEnv
  , vEnv :: !SimpleApp
  }

-instance HasLogFunc (VEnv SysClient) where
+instance SafeClient c => HasLogFunc (VEnv c) where
  logFuncL = lens vEnv (\x y -> x {vEnv = y}) . logFuncL

 instance HasClient VEnv where