{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingStrategies #-} module Hercules.API.Agents.AgentSession where import Hercules.API.Agents.ClusterJoinToken ( ClusterJoinToken, ) import Hercules.API.Labels import Hercules.API.Prelude data AgentSession = AgentSession { AgentSession -> Id AgentSession id :: Id AgentSession, AgentSession -> Id ClusterJoinToken clusterJoinTokenId :: Id ClusterJoinToken, AgentSession -> Text description :: Text, AgentSession -> Text hostname :: Text, AgentSession -> Text agentVersion :: Text, AgentSession -> Text nixVersion :: Text, AgentSession -> [Text] platforms :: [Text], AgentSession -> [Text] systemFeatures :: [Text], AgentSession -> [Text] cachixPushCaches :: [Text], AgentSession -> [Text] pushCaches :: [Text], AgentSession -> [Text] substituters :: [Text], AgentSession -> UTCTime creation :: UTCTime, AgentSession -> Maybe UTCTime lastSeen :: Maybe UTCTime, AgentSession -> Bool available :: Bool, AgentSession -> Int concurrentTasks :: Int, AgentSession -> Labels labels :: Labels } deriving (forall x. Rep AgentSession x -> AgentSession forall x. AgentSession -> Rep AgentSession x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep AgentSession x -> AgentSession $cfrom :: forall x. AgentSession -> Rep AgentSession x Generic, Int -> AgentSession -> ShowS [AgentSession] -> ShowS AgentSession -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [AgentSession] -> ShowS $cshowList :: [AgentSession] -> ShowS show :: AgentSession -> String $cshow :: AgentSession -> String showsPrec :: Int -> AgentSession -> ShowS $cshowsPrec :: Int -> AgentSession -> ShowS Show, AgentSession -> AgentSession -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: AgentSession -> AgentSession -> Bool $c/= :: AgentSession -> AgentSession -> Bool == :: AgentSession -> AgentSession -> Bool $c== :: AgentSession -> AgentSession -> Bool Eq, AgentSession -> () forall a. (a -> ()) -> NFData a rnf :: AgentSession -> () $crnf :: AgentSession -> () NFData, [AgentSession] -> Encoding [AgentSession] -> Value AgentSession -> Encoding AgentSession -> Value forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [AgentSession] -> Encoding $ctoEncodingList :: [AgentSession] -> Encoding toJSONList :: [AgentSession] -> Value $ctoJSONList :: [AgentSession] -> Value toEncoding :: AgentSession -> Encoding $ctoEncoding :: AgentSession -> Encoding toJSON :: AgentSession -> Value $ctoJSON :: AgentSession -> Value ToJSON, Value -> Parser [AgentSession] Value -> Parser AgentSession forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [AgentSession] $cparseJSONList :: Value -> Parser [AgentSession] parseJSON :: Value -> Parser AgentSession $cparseJSON :: Value -> Parser AgentSession FromJSON, Proxy AgentSession -> Declare (Definitions Schema) NamedSchema forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a declareNamedSchema :: Proxy AgentSession -> Declare (Definitions Schema) NamedSchema $cdeclareNamedSchema :: Proxy AgentSession -> Declare (Definitions Schema) NamedSchema ToSchema)