{-# LANGUAGE DeriveAnyClass #-} {-# LANGUAGE DerivingStrategies #-} module Hercules.API.Forge.SimpleForge where import Data.OpenApi qualified as O3 import Hercules.API.Forge.Forge (Forge) import Hercules.API.Prelude data SimpleForge = SimpleForge { SimpleForge -> Id Forge id :: Id Forge, SimpleForge -> Name Forge name :: Name Forge, SimpleForge -> Text displayName :: Text } deriving ((forall x. SimpleForge -> Rep SimpleForge x) -> (forall x. Rep SimpleForge x -> SimpleForge) -> Generic SimpleForge forall x. Rep SimpleForge x -> SimpleForge forall x. SimpleForge -> Rep SimpleForge x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cfrom :: forall x. SimpleForge -> Rep SimpleForge x from :: forall x. SimpleForge -> Rep SimpleForge x $cto :: forall x. Rep SimpleForge x -> SimpleForge to :: forall x. Rep SimpleForge x -> SimpleForge Generic, Int -> SimpleForge -> ShowS [SimpleForge] -> ShowS SimpleForge -> String (Int -> SimpleForge -> ShowS) -> (SimpleForge -> String) -> ([SimpleForge] -> ShowS) -> Show SimpleForge forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a $cshowsPrec :: Int -> SimpleForge -> ShowS showsPrec :: Int -> SimpleForge -> ShowS $cshow :: SimpleForge -> String show :: SimpleForge -> String $cshowList :: [SimpleForge] -> ShowS showList :: [SimpleForge] -> ShowS Show, SimpleForge -> SimpleForge -> Bool (SimpleForge -> SimpleForge -> Bool) -> (SimpleForge -> SimpleForge -> Bool) -> Eq SimpleForge forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a $c== :: SimpleForge -> SimpleForge -> Bool == :: SimpleForge -> SimpleForge -> Bool $c/= :: SimpleForge -> SimpleForge -> Bool /= :: SimpleForge -> SimpleForge -> Bool Eq) deriving anyclass (SimpleForge -> () (SimpleForge -> ()) -> NFData SimpleForge forall a. (a -> ()) -> NFData a $crnf :: SimpleForge -> () rnf :: SimpleForge -> () NFData, [SimpleForge] -> Value [SimpleForge] -> Encoding SimpleForge -> Value SimpleForge -> Encoding (SimpleForge -> Value) -> (SimpleForge -> Encoding) -> ([SimpleForge] -> Value) -> ([SimpleForge] -> Encoding) -> ToJSON SimpleForge forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a $ctoJSON :: SimpleForge -> Value toJSON :: SimpleForge -> Value $ctoEncoding :: SimpleForge -> Encoding toEncoding :: SimpleForge -> Encoding $ctoJSONList :: [SimpleForge] -> Value toJSONList :: [SimpleForge] -> Value $ctoEncodingList :: [SimpleForge] -> Encoding toEncodingList :: [SimpleForge] -> Encoding ToJSON, Value -> Parser [SimpleForge] Value -> Parser SimpleForge (Value -> Parser SimpleForge) -> (Value -> Parser [SimpleForge]) -> FromJSON SimpleForge forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a $cparseJSON :: Value -> Parser SimpleForge parseJSON :: Value -> Parser SimpleForge $cparseJSONList :: Value -> Parser [SimpleForge] parseJSONList :: Value -> Parser [SimpleForge] FromJSON, Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema (Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema) -> ToSchema SimpleForge forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema ToSchema, Typeable SimpleForge Typeable SimpleForge -> (Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema) -> ToSchema SimpleForge Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema forall a. Typeable a -> (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a $cdeclareNamedSchema :: Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema declareNamedSchema :: Proxy SimpleForge -> Declare (Definitions Schema) NamedSchema O3.ToSchema)