{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveAnyClass #-} module Hercules.API.Accounts.CLIToken where import Hercules.API.Accounts.Account (Account) import Hercules.API.Prelude data CLIToken = CLIToken { CLIToken -> Id "CLIToken" id :: Id "CLIToken", CLIToken -> Text description :: Text, CLIToken -> UTCTime creationTime :: UTCTime, CLIToken -> Id Account userId :: Id Account } deriving (forall x. Rep CLIToken x -> CLIToken forall x. CLIToken -> Rep CLIToken x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep CLIToken x -> CLIToken $cfrom :: forall x. CLIToken -> Rep CLIToken x Generic, Int -> CLIToken -> ShowS [CLIToken] -> ShowS CLIToken -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [CLIToken] -> ShowS $cshowList :: [CLIToken] -> ShowS show :: CLIToken -> String $cshow :: CLIToken -> String showsPrec :: Int -> CLIToken -> ShowS $cshowsPrec :: Int -> CLIToken -> ShowS Show, CLIToken -> CLIToken -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: CLIToken -> CLIToken -> Bool $c/= :: CLIToken -> CLIToken -> Bool == :: CLIToken -> CLIToken -> Bool $c== :: CLIToken -> CLIToken -> Bool Eq, CLIToken -> () forall a. (a -> ()) -> NFData a rnf :: CLIToken -> () $crnf :: CLIToken -> () NFData, [CLIToken] -> Encoding [CLIToken] -> Value CLIToken -> Encoding CLIToken -> Value forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [CLIToken] -> Encoding $ctoEncodingList :: [CLIToken] -> Encoding toJSONList :: [CLIToken] -> Value $ctoJSONList :: [CLIToken] -> Value toEncoding :: CLIToken -> Encoding $ctoEncoding :: CLIToken -> Encoding toJSON :: CLIToken -> Value $ctoJSON :: CLIToken -> Value ToJSON, Value -> Parser [CLIToken] Value -> Parser CLIToken forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [CLIToken] $cparseJSONList :: Value -> Parser [CLIToken] parseJSON :: Value -> Parser CLIToken $cparseJSON :: Value -> Parser CLIToken FromJSON, Proxy CLIToken -> Declare (Definitions Schema) NamedSchema forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a declareNamedSchema :: Proxy CLIToken -> Declare (Definitions Schema) NamedSchema $cdeclareNamedSchema :: Proxy CLIToken -> Declare (Definitions Schema) NamedSchema ToSchema)