MK
Size: a a a
MK
MK
Channelsк
data family Foo k (a :: k) :: Type
lol :: forall (tag :: k). Channels k -> Foo k tag -> ()
MK
L
AV
MP
data SStats = SStats {
statSize :: Int,
statKeyBytes :: Int,
statValueBytes :: Int
}
deriving stock (Show, Eq, Generic)
deriving Semigroup via GenericSemigroup SStats
deriving Monoid via GenericMonoid SStatsAP
AP
AP
envoyConfig
^.. key "virtual_hosts"
. values
. key "routes"
. values
. key "match"
. key "prefix"
AP
virtual_hosts есть поле "name"AP
AP
AP
AP
envoyConfig
^.. key "virtual_hosts"
. values
. (\vh -> do
name <- vh & key "name"
vh & key "routes"
. values
. key "match"
. (\m -> do
prefix <- m & key "prefix"
pure (name, prefix)))
к