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