freckle-ecs-0.0.0.0: Small utility for Amazon Elastic Container Service

Safe Haskell	None
Language	GHC2021

Freckle.App.Ecs

Synopsis

data EcsMetadata = EcsMetadata {
- emContainerMetadata :: EcsContainerMetadata
- emContainerTaskMetadata :: EcsContainerTaskMetadata
}
data EcsMetadataError
- = EcsMetadataErrorNotEnabled
- | EcsMetadataErrorInvalidURI String
- | EcsMetadataErrorUnexpectedStatus Request Status
- | EcsMetadataErrorInvalidJSON Request HttpDecodeError
data EcsContainerMetadata = EcsContainerMetadata {
- ecmDockerId :: Text
- ecmDockerName :: Text
- ecmImage :: Text
- ecmImageID :: Text
}
data EcsContainerTaskMetadata = EcsContainerTaskMetadata {
- ectmCluster :: Text
- ectmTaskARN :: Text
- ectmFamily :: Text
- ectmRevision :: Text
}
getEcsMetadata :: (MonadIO m, MonadError EcsMetadataError m) => m EcsMetadata

Documentation

data EcsMetadata Source #

Constructors

EcsMetadata
Fields emContainerMetadata :: EcsContainerMetadata emContainerTaskMetadata :: EcsContainerTaskMetadata

data EcsMetadataError Source #

Constructors

EcsMetadataErrorNotEnabled
EcsMetadataErrorInvalidURI String
EcsMetadataErrorUnexpectedStatus Request Status
EcsMetadataErrorInvalidJSON Request HttpDecodeError

Instances

Instances details

Show EcsMetadataError Source #
Instance details Defined in Freckle.App.Ecs Methods showsPrec :: Int -> EcsMetadataError -> ShowS # show :: EcsMetadataError -> String # showList :: [EcsMetadataError] -> ShowS #

data EcsContainerMetadata Source #

Parsing for the / response

https://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-metadata-endpoint-v4.html#task-metadata-endpoint-v4-examples

Constructors

EcsContainerMetadata
Fields ecmDockerId :: Text ecmDockerName :: Text ecmImage :: Text ecmImageID :: Text

Instances

Instances details

FromJSON EcsContainerMetadata Source #

Instance details

Defined in Freckle.App.Ecs

Methods

parseJSON :: Value -> Parser EcsContainerMetadata #

parseJSONList :: Value -> Parser [EcsContainerMetadata] #

omittedField :: Maybe EcsContainerMetadata #

Generic EcsContainerMetadata Source #

Instance details

Defined in Freckle.App.Ecs

Associated Types

type Rep EcsContainerMetadata

Instance details

Defined in Freckle.App.Ecs

type Rep EcsContainerMetadata = D1 ('MetaData "EcsContainerMetadata" "Freckle.App.Ecs" "freckle-ecs-0.0.0.0-3aXjoWGWqfRDrRacOa8VwA" 'False) (C1 ('MetaCons "EcsContainerMetadata" 'PrefixI 'True) ((S1 ('MetaSel ('Just "ecmDockerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ecmDockerName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "ecmImage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ecmImageID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

Methods

from :: EcsContainerMetadata -> Rep EcsContainerMetadata x #

to :: Rep EcsContainerMetadata x -> EcsContainerMetadata #

type Rep EcsContainerMetadata Source #

Instance details

Defined in Freckle.App.Ecs

type Rep EcsContainerMetadata = D1 ('MetaData "EcsContainerMetadata" "Freckle.App.Ecs" "freckle-ecs-0.0.0.0-3aXjoWGWqfRDrRacOa8VwA" 'False) (C1 ('MetaCons "EcsContainerMetadata" 'PrefixI 'True) ((S1 ('MetaSel ('Just "ecmDockerId") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ecmDockerName") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "ecmImage") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ecmImageID") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

data EcsContainerTaskMetadata Source #

Parsing of the /task response

https://docs.aws.amazon.com/AmazonECS/latest/developerguide/task-metadata-endpoint-v4.html#task-metadata-endpoint-v4-response

Constructors

EcsContainerTaskMetadata
Fields ectmCluster :: Text ectmTaskARN :: Text ectmFamily :: Text ectmRevision :: Text

Instances

Instances details

FromJSON EcsContainerTaskMetadata Source #

Instance details

Defined in Freckle.App.Ecs

Methods

parseJSON :: Value -> Parser EcsContainerTaskMetadata #

parseJSONList :: Value -> Parser [EcsContainerTaskMetadata] #

omittedField :: Maybe EcsContainerTaskMetadata #

Generic EcsContainerTaskMetadata Source #

Instance details

Defined in Freckle.App.Ecs

Associated Types

type Rep EcsContainerTaskMetadata

Instance details

Defined in Freckle.App.Ecs

type Rep EcsContainerTaskMetadata = D1 ('MetaData "EcsContainerTaskMetadata" "Freckle.App.Ecs" "freckle-ecs-0.0.0.0-3aXjoWGWqfRDrRacOa8VwA" 'False) (C1 ('MetaCons "EcsContainerTaskMetadata" 'PrefixI 'True) ((S1 ('MetaSel ('Just "ectmCluster") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ectmTaskARN") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "ectmFamily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ectmRevision") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

Methods

from :: EcsContainerTaskMetadata -> Rep EcsContainerTaskMetadata x #

to :: Rep EcsContainerTaskMetadata x -> EcsContainerTaskMetadata #

type Rep EcsContainerTaskMetadata Source #

Instance details

Defined in Freckle.App.Ecs

type Rep EcsContainerTaskMetadata = D1 ('MetaData "EcsContainerTaskMetadata" "Freckle.App.Ecs" "freckle-ecs-0.0.0.0-3aXjoWGWqfRDrRacOa8VwA" 'False) (C1 ('MetaCons "EcsContainerTaskMetadata" 'PrefixI 'True) ((S1 ('MetaSel ('Just "ectmCluster") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ectmTaskARN") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text)) :*: (S1 ('MetaSel ('Just "ectmFamily") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text) :*: S1 ('MetaSel ('Just "ectmRevision") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 Text))))

getEcsMetadata :: (MonadIO m, MonadError EcsMetadataError m) => m EcsMetadata Source #