REF generalize typeclass
This commit is contained in:
parent
0d024ab649
commit
a61b17502d
|
@ -57,7 +57,7 @@ data VEnv c = VEnv
|
||||||
, vEnv :: !SimpleApp
|
, vEnv :: !SimpleApp
|
||||||
}
|
}
|
||||||
|
|
||||||
instance HasLogFunc (VEnv SysClient) where
|
instance SafeClient c => HasLogFunc (VEnv c) where
|
||||||
logFuncL = lens vEnv (\x y -> x {vEnv = y}) . logFuncL
|
logFuncL = lens vEnv (\x y -> x {vEnv = y}) . logFuncL
|
||||||
|
|
||||||
instance HasClient VEnv where
|
instance HasClient VEnv where
|
||||||
|
|
Loading…
Reference in New Issue