{-# LANGUAGE DeriveAnyClass #-} module Hercules.API.Derivation where import Hercules.API.Prelude hiding (either) data DerivationPath = DerivationPath { DerivationPath -> Text drvPath :: Text } deriving (forall x. Rep DerivationPath x -> DerivationPath forall x. DerivationPath -> Rep DerivationPath x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep DerivationPath x -> DerivationPath $cfrom :: forall x. DerivationPath -> Rep DerivationPath x Generic, Int -> DerivationPath -> ShowS [DerivationPath] -> ShowS DerivationPath -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [DerivationPath] -> ShowS $cshowList :: [DerivationPath] -> ShowS show :: DerivationPath -> String $cshow :: DerivationPath -> String showsPrec :: Int -> DerivationPath -> ShowS $cshowsPrec :: Int -> DerivationPath -> ShowS Show, DerivationPath -> DerivationPath -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: DerivationPath -> DerivationPath -> Bool $c/= :: DerivationPath -> DerivationPath -> Bool == :: DerivationPath -> DerivationPath -> Bool $c== :: DerivationPath -> DerivationPath -> Bool Eq, DerivationPath -> () forall a. (a -> ()) -> NFData a rnf :: DerivationPath -> () $crnf :: DerivationPath -> () NFData, [DerivationPath] -> Encoding [DerivationPath] -> Value DerivationPath -> Encoding DerivationPath -> Value forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [DerivationPath] -> Encoding $ctoEncodingList :: [DerivationPath] -> Encoding toJSONList :: [DerivationPath] -> Value $ctoJSONList :: [DerivationPath] -> Value toEncoding :: DerivationPath -> Encoding $ctoEncoding :: DerivationPath -> Encoding toJSON :: DerivationPath -> Value $ctoJSON :: DerivationPath -> Value ToJSON, Value -> Parser [DerivationPath] Value -> Parser DerivationPath forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [DerivationPath] $cparseJSONList :: Value -> Parser [DerivationPath] parseJSON :: Value -> Parser DerivationPath $cparseJSON :: Value -> Parser DerivationPath FromJSON, Proxy DerivationPath -> Declare (Definitions Schema) NamedSchema forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a declareNamedSchema :: Proxy DerivationPath -> Declare (Definitions Schema) NamedSchema $cdeclareNamedSchema :: Proxy DerivationPath -> Declare (Definitions Schema) NamedSchema ToSchema) data Derivation = Derivation { Derivation -> DerivationStatus status :: DerivationStatus, Derivation -> Text derivationPath :: Text } deriving (forall x. Rep Derivation x -> Derivation forall x. Derivation -> Rep Derivation x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep Derivation x -> Derivation $cfrom :: forall x. Derivation -> Rep Derivation x Generic, Int -> Derivation -> ShowS [Derivation] -> ShowS Derivation -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Derivation] -> ShowS $cshowList :: [Derivation] -> ShowS show :: Derivation -> String $cshow :: Derivation -> String showsPrec :: Int -> Derivation -> ShowS $cshowsPrec :: Int -> Derivation -> ShowS Show, Derivation -> Derivation -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Derivation -> Derivation -> Bool $c/= :: Derivation -> Derivation -> Bool == :: Derivation -> Derivation -> Bool $c== :: Derivation -> Derivation -> Bool Eq, Derivation -> () forall a. (a -> ()) -> NFData a rnf :: Derivation -> () $crnf :: Derivation -> () NFData, [Derivation] -> Encoding [Derivation] -> Value Derivation -> Encoding Derivation -> Value forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [Derivation] -> Encoding $ctoEncodingList :: [Derivation] -> Encoding toJSONList :: [Derivation] -> Value $ctoJSONList :: [Derivation] -> Value toEncoding :: Derivation -> Encoding $ctoEncoding :: Derivation -> Encoding toJSON :: Derivation -> Value $ctoJSON :: Derivation -> Value ToJSON, Value -> Parser [Derivation] Value -> Parser Derivation forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [Derivation] $cparseJSONList :: Value -> Parser [Derivation] parseJSON :: Value -> Parser Derivation $cparseJSON :: Value -> Parser Derivation FromJSON, Proxy Derivation -> Declare (Definitions Schema) NamedSchema forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a declareNamedSchema :: Proxy Derivation -> Declare (Definitions Schema) NamedSchema $cdeclareNamedSchema :: Proxy Derivation -> Declare (Definitions Schema) NamedSchema ToSchema) data DerivationStatus = Waiting | Building | BuildFailure | DependencyFailure | BuildSuccess | Cancelled deriving (forall x. Rep DerivationStatus x -> DerivationStatus forall x. DerivationStatus -> Rep DerivationStatus x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep DerivationStatus x -> DerivationStatus $cfrom :: forall x. DerivationStatus -> Rep DerivationStatus x Generic, Int -> DerivationStatus -> ShowS [DerivationStatus] -> ShowS DerivationStatus -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [DerivationStatus] -> ShowS $cshowList :: [DerivationStatus] -> ShowS show :: DerivationStatus -> String $cshow :: DerivationStatus -> String showsPrec :: Int -> DerivationStatus -> ShowS $cshowsPrec :: Int -> DerivationStatus -> ShowS Show, DerivationStatus -> DerivationStatus -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: DerivationStatus -> DerivationStatus -> Bool $c/= :: DerivationStatus -> DerivationStatus -> Bool == :: DerivationStatus -> DerivationStatus -> Bool $c== :: DerivationStatus -> DerivationStatus -> Bool Eq, DerivationStatus -> () forall a. (a -> ()) -> NFData a rnf :: DerivationStatus -> () $crnf :: DerivationStatus -> () NFData, [DerivationStatus] -> Encoding [DerivationStatus] -> Value DerivationStatus -> Encoding DerivationStatus -> Value forall a. (a -> Value) -> (a -> Encoding) -> ([a] -> Value) -> ([a] -> Encoding) -> ToJSON a toEncodingList :: [DerivationStatus] -> Encoding $ctoEncodingList :: [DerivationStatus] -> Encoding toJSONList :: [DerivationStatus] -> Value $ctoJSONList :: [DerivationStatus] -> Value toEncoding :: DerivationStatus -> Encoding $ctoEncoding :: DerivationStatus -> Encoding toJSON :: DerivationStatus -> Value $ctoJSON :: DerivationStatus -> Value ToJSON, Value -> Parser [DerivationStatus] Value -> Parser DerivationStatus forall a. (Value -> Parser a) -> (Value -> Parser [a]) -> FromJSON a parseJSONList :: Value -> Parser [DerivationStatus] $cparseJSONList :: Value -> Parser [DerivationStatus] parseJSON :: Value -> Parser DerivationStatus $cparseJSON :: Value -> Parser DerivationStatus FromJSON, Proxy DerivationStatus -> Declare (Definitions Schema) NamedSchema forall a. (Proxy a -> Declare (Definitions Schema) NamedSchema) -> ToSchema a declareNamedSchema :: Proxy DerivationStatus -> Declare (Definitions Schema) NamedSchema $cdeclareNamedSchema :: Proxy DerivationStatus -> Declare (Definitions Schema) NamedSchema ToSchema)