{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingVia #-} module Hercules.Agent.WorkerProtocol.LogSettings where import Data.Binary import Hercules.Agent.Sensitive import Protolude data LogSettings = LogSettings { LogSettings -> Text path :: Text, LogSettings -> Text baseURL :: Text, LogSettings -> Sensitive Text token :: Sensitive Text } deriving ((forall x. LogSettings -> Rep LogSettings x) -> (forall x. Rep LogSettings x -> LogSettings) -> Generic LogSettings forall x. Rep LogSettings x -> LogSettings forall x. LogSettings -> Rep LogSettings x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep LogSettings x -> LogSettings $cfrom :: forall x. LogSettings -> Rep LogSettings x Generic, Get LogSettings [LogSettings] -> Put LogSettings -> Put (LogSettings -> Put) -> Get LogSettings -> ([LogSettings] -> Put) -> Binary LogSettings forall t. (t -> Put) -> Get t -> ([t] -> Put) -> Binary t putList :: [LogSettings] -> Put $cputList :: [LogSettings] -> Put get :: Get LogSettings $cget :: Get LogSettings put :: LogSettings -> Put $cput :: LogSettings -> Put Binary, Int -> LogSettings -> ShowS [LogSettings] -> ShowS LogSettings -> String (Int -> LogSettings -> ShowS) -> (LogSettings -> String) -> ([LogSettings] -> ShowS) -> Show LogSettings forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [LogSettings] -> ShowS $cshowList :: [LogSettings] -> ShowS show :: LogSettings -> String $cshow :: LogSettings -> String showsPrec :: Int -> LogSettings -> ShowS $cshowsPrec :: Int -> LogSettings -> ShowS Show, LogSettings -> LogSettings -> Bool (LogSettings -> LogSettings -> Bool) -> (LogSettings -> LogSettings -> Bool) -> Eq LogSettings forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: LogSettings -> LogSettings -> Bool $c/= :: LogSettings -> LogSettings -> Bool == :: LogSettings -> LogSettings -> Bool $c== :: LogSettings -> LogSettings -> Bool Eq)