@@ -11,9 +11,6 @@ module Docker.Client.Types (
1111 , ImageID
1212 , fromImageID
1313 , toImageID
14− , NetworkID
15− , fromNetworkID
16− , toNetworkID
1714 , Timeout(..)
1815 , StatusCode(..)
1916 , Signal(..)
@@ -40,16 +37,12 @@ module Docker.Client.Types (
4037 , DetachKeys(..)
4138 , StartOpts(..)
4239 , defaultStartOpts
43− , ContainerDeleteOpts(..)
44− , defaultContainerDeleteOpts
45− , ImageDeleteOpts(..)
46− , defaultImageDeleteOpts
40+ , DeleteOpts(..)
41+ , defaultDeleteOpts
4742 , Timestamp
4843 , TailLogOpt(..)
4944 , LogOpts(..)
5045 , defaultLogOpts
51− , CreateNetworkOpts(..)
52− , defaultCreateNetworkOpts
5346 , VolumePermission(..)
5447 , Bind(..)
5548 , Volume(..)
@@ -75,8 +68,6 @@ module Docker.Client.Types (
7568 , UTSMode(..)
7669 , HostConfig(..)
7770 , defaultHostConfig
78− , NetworkingConfig(..)
79− , EndpointConfig(..)
8071 , Ulimit(..)
8172 , ContainerResources(..)
8273 , defaultContainerResources
@@ -132,13 +123,10 @@ data Endpoint =
132123 | UnpauseContainerEndpoint ContainerID
133124 | ContainerLogsEndpoint LogOpts Bool ContainerID -- ^ Second argument (Bool) is whether to follow which is currently hardcoded to False.
134125 -- See note in 'Docker.Client.Api.getContainerLogs' for explanation why.
135− | DeleteContainerEndpoint ContainerDeleteOpts ContainerID
126+ | DeleteContainerEndpoint DeleteOpts ContainerID
136127 | InspectContainerEndpoint ContainerID
137128 | BuildImageEndpoint BuildOpts FilePath
138129 | CreateImageEndpoint T.Text Tag (Maybe T.Text) -- ^ Either pull an image from docker hub or imports an image from a tarball (or URL)
139− | DeleteImageEndpoint ImageDeleteOpts ImageID
140− | CreateNetworkEndpoint CreateNetworkOpts
141− | RemoveNetworkEndpoint NetworkID
142130 deriving (Eq, Show)
143131
144132-- | We should newtype this
@@ -623,46 +611,20 @@ instance FromJSON Image where
623611 return $ DockerImage imageId imageCreated imageParentId imageRepoTags imageRepoDigests imageSize imageVirtualSize imageLabels
624612 parseJSON _ = fail "Failed to parse DockerImage."
625613
626−-- | Alias for Aliases.
627−type Alias = Text
628−
629−-- | EndpointsConfig is container configuration for a specific network
630−newtype EndpointConfig = EndpointConfig [Alias] deriving (Eq, Show)
631−
632−instance ToJSON EndpointConfig where
633− toJSON (EndpointConfig aliases) = JSON.object
634− [ "Aliases" .= aliases
635− ]
636−
637−-- | Alias for endpoint name
638−type EndpointName = Text
639−
640−-- | Data type for the NetworkingConfig section of the container settings
641−newtype NetworkingConfig = NetworkingConfig
642− { endpointsConfig :: HM.HashMap EndpointName EndpointConfig
643− } deriving (Eq, Show)
644−
645−instance ToJSON NetworkingConfig where
646− toJSON (NetworkingConfig endpointsConfig) = JSON.object
647− [ "EndpointsConfig" .= endpointsConfig
648− ]
649614
650615-- | Options used for creating a Container.
651616data CreateOpts = CreateOpts {
652− containerConfig :: ContainerConfig
653− , hostConfig :: HostConfig
654− , networkingConfig :: NetworkingConfig
617+ containerConfig :: ContainerConfig
618+ , hostConfig :: HostConfig
655619 } deriving (Eq, Show)
656620
657621instance ToJSON CreateOpts where
658− toJSON (CreateOpts cc hc nc) = do
622+ toJSON (CreateOpts cc hc) = do
659623 let ccJSON = toJSON cc
660624 let hcJSON = toJSON hc
661625 case ccJSON of
662626 JSON.Object (o :: HM.HashMap T.Text JSON.Value) -> do
663− let o1 = HM.insert "HostConfig" hcJSON o
664− let o2 = HM.insert "NetworkingConfig" (toJSON nc) o1
665− JSON.Object o2
627+ JSON.Object $ HM.insert "HostConfig" hcJSON o
666628 _ -> error "ContainerConfig is not an object." -- This should never happen.
667629
668630-- | Container configuration used for creating a container with sensible
@@ -744,11 +706,7 @@ defaultContainerResources = ContainerResources {
744706-- | Default create options when creating a container. You only need to
745707-- specify an image name and the rest is all sensible defaults.
746708defaultCreateOpts :: T.Text -> CreateOpts
747−defaultCreateOpts imageName = CreateOpts
748− { containerConfig = defaultContainerConfig imageName
749− , hostConfig = defaultHostConfig
750− , networkingConfig = NetworkingConfig HM.empty
751− }
709+defaultCreateOpts imageName = CreateOpts { containerConfig = defaultContainerConfig imageName, hostConfig = defaultHostConfig }
752710
753711-- | Override the key sequence for detaching a container.
754712-- Format is a single character [a-Z] or ctrl-<value> where <value> is one of: a-z, @, ^, [, , or _.
@@ -762,7 +720,7 @@ defaultStartOpts :: StartOpts
762720defaultStartOpts = StartOpts { detachKeys = DefaultDetachKey }
763721
764722-- | Options for deleting a container.
765−data ContainerDeleteOpts = ContainerDeleteOpts {
723+data DeleteOpts = DeleteOpts {
766724 deleteVolumes :: Bool -- ^ Automatically cleanup volumes that the container created as well.
767725 , force :: Bool -- ^ If the container is still running force deletion anyway.
768726 } deriving (Eq, Show)
@@ -792,15 +750,8 @@ defaultBuildOpts nameTag = BuildOpts { buildImageName = nameTag
792750-- | Default options for deleting a container. Most of the time we DON'T
793751-- want to delete the container's volumes or force delete it if it's
794752-- running.
795−defaultContainerDeleteOpts :: ContainerDeleteOpts
796−defaultContainerDeleteOpts = ContainerDeleteOpts { deleteVolumes = False, force = False }
797−
798−-- | Image delete opts
799−data ImageDeleteOpts = ImageDeleteOpts deriving (Eq, Show)
800−
801−-- | Sane image deletion defaults
802−defaultImageDeleteOpts :: ImageDeleteOpts
803−defaultImageDeleteOpts = ImageDeleteOpts
753+defaultDeleteOpts :: DeleteOpts
754+defaultDeleteOpts = DeleteOpts { deleteVolumes = False, force = False }
804755
805756-- | Timestamp alias.
806757type Timestamp = Integer
@@ -828,36 +779,6 @@ defaultLogOpts = LogOpts { stdout = True
828779 , tail = All
829780 }
830781
831−-- | Options for creating a network
832−data CreateNetworkOpts = CreateNetworkOpts
833− { createNetworkName :: Text -- ^ The network's name
834− , createNetworkCheckDuplicate :: Bool -- ^ Check for networks with duplicate names.
835− , createNetworkDriver :: Text -- ^ Name of the network driver plugin to use.
836− , createNetworkInternal :: Bool -- ^ Restrict external access to the network.
837− , createNetworkEnableIPv6 :: Bool -- ^ Enable IPv6 on the network.
838− } deriving (Eq, Show)
839−
840−-- | Sensible defalut for create network options
841−defaultCreateNetworkOpts :: Text -> CreateNetworkOpts
842−defaultCreateNetworkOpts name =
843− CreateNetworkOpts
844− { createNetworkName = name
845− , createNetworkCheckDuplicate = False
846− , createNetworkDriver = "bridge"
847− , createNetworkInternal = True
848− , createNetworkEnableIPv6 = False
849− }
850−
851−instance ToJSON CreateNetworkOpts where
852− toJSON opts =
853− object
854− [ "Name" .= createNetworkName opts
855− , "CheckDuplicate" .= createNetworkCheckDuplicate opts
856− , "Driver" .= createNetworkDriver opts
857− , "Internal" .= createNetworkInternal opts
858− , "EnableIPv6" .= createNetworkEnableIPv6 opts
859− ]
860−
861782-- TOOD: Add support for SELinux Volume labels (eg. "ro,z" or "ro/Z")
862783-- | Set permissions on volumes that you mount in the container.
863784data VolumePermission = ReadWrite | ReadOnly deriving (Eq, Show, Generic)
@@ -1033,26 +954,6 @@ instance ToJSON NetworkMode where
1033954 toJSON NetworkDisabled = JSON.String "none"
1034955 toJSON (NetworkNamed n) = JSON.String n
1035956
1036−newtype NetworkID = NetworkID Text
1037− deriving (Eq, Show)
1038−
1039−-- | Used for extracting the id of the container from the newtype
1040−fromNetworkID :: NetworkID -> Text
1041−fromNetworkID (NetworkID t) = t
1042−
1043−-- | Used for parsing a Text value into a NetworkID.
1044−toNetworkID :: Text -> Maybe NetworkID
1045−toNetworkID t = Just $ NetworkID t
1046−
1047−instance FromJSON NetworkID where
1048− parseJSON (JSON.Object o) = do
1049− nid <- o .: "Id"
1050− return $ NetworkID nid
1051− parseJSON _ = fail "NetworkID is not an object."
1052−
1053−instance ToJSON NetworkID where
1054− toJSON (NetworkID nid) = object ["Id" .= nid]
1055−
1056957data PortType = TCP | UDP deriving (Eq, Generic, Read, Ord)
1057958
1058959instance Show PortType where
@@ -1564,11 +1465,7 @@ instance FromJSON ContainerConfig where
15641465 macAddress labels stopSignal
15651466 parseJSON _ = fail "NetworkSettings is not an object."
15661467
1567−#if MIN_VERSION_base(4,13,0)
1568−parseIntegerText :: (MonadFail m) => Text -> m Integer
1569−#else
15701468parseIntegerText :: (Monad m) => Text -> m Integer
1571−#endif
15721469parseIntegerText t = case readMaybe $ T.unpack t of
15731470 Nothing ->
15741471 fail "Could not parse Integer"