module Hercules.Agent.Cachix.Info where

import qualified Data.Map as M
import Hercules.Agent.Cachix.Env
import Protolude

activePushCaches :: (MonadReader r m, HasEnv r) => m [Text]
activePushCaches = asks (M.keys . pushCaches . getEnv)