@@ -76,6 +76,15 @@ module Docker.Client.Types (
7676 , HostConfig(..)
7777 , defaultHostConfig
7878 , NetworkingConfig(..)
79+ , NetworkScope(..)
80+ , CIDR(..)
81+ , IPAMDriver(..)
82+ , IPAMConfig(..)
83+ , IPAM(..)
84+ , NetworkContainer(..)
85+ , NetworkDetails(..)
86+ , NetworkType(..)
87+ , NetworkFilter(..)
7988 , EndpointConfig(..)
8089 , Ulimit(..)
8190 , ContainerResources(..)
@@ -114,6 +123,7 @@ import qualified Data.Text as T
114123import Data.Time.Clock (UTCTime)
115124import qualified Data.Vector as V
116125import GHC.Generics (Generic)
126+import Numeric (readDec)
117127import Prelude hiding (all, tail)
118128import Text.Read (readMaybe)
119129
@@ -139,6 +149,7 @@ data Endpoint =
139149 | DeleteImageEndpoint ImageDeleteOpts ImageID
140150 | CreateNetworkEndpoint CreateNetworkOpts
141151 | RemoveNetworkEndpoint NetworkID
152+ | ListNetworksEndpoint [NetworkFilter]
142153 deriving (Eq, Show)
143154
144155-- | We should newtype this
@@ -858,6 +869,153 @@ instance ToJSON CreateNetworkOpts where
858869 , "EnableIPv6" .= createNetworkEnableIPv6 opts
859870 ]
860871
872+data NetworkScope = LocalScope | GlobalScope | SwarmScope deriving (Eq, Show)
873+
874+fromNetworkScope :: NetworkScope -> Text
875+fromNetworkScope LocalScope = "local"
876+fromNetworkScope GlobalScope = "global"
877+fromNetworkScope SwarmScope = "swarm"
878+
879+instance ToJSON NetworkScope where
880+ toJSON = JSON.String . fromNetworkScope
881+
882+instance FromJSON NetworkScope where
883+ parseJSON "local" = return LocalScope
884+ parseJSON "global" = return GlobalScope
885+ parseJSON "swarm" = return SwarmScope
886+ parseJSON _ = fail "Failed to parse NetworkScope"
887+
888+data CIDR = CIDR Text Int deriving (Eq, Show)
889+
890+instance FromJSON CIDR where
891+ parseJSON (JSON.String t) = case T.splitOn "/" t of
892+ [a,p] -> CIDR a <$> parsePrefixLen p
893+ _ -> fail "Failed to parse CIDR"
894+ where
895+ parsePrefixLen p = case readDec (T.unpack p) of
896+ (n,""):_ -> return n
897+ _ -> fail "Failed to parse CIDR prefix length"
898+ parseJSON _ = fail "Failed to parse CIDR"
899+
900+data IPAMDriver = DefaultIPAMDriver | NamedIPAMDriver Text deriving (Eq, Show)
901+
902+instance FromJSON IPAMDriver where
903+ parseJSON (JSON.String "default") = return DefaultIPAMDriver
904+ parseJSON (JSON.String t) = return $ NamedIPAMDriver t
905+ parseJSON _ = fail "IPAMDriver is not a string"
906+
907+data IPAMConfig = IPAMConfig
908+ { ipamConfigSubnet :: CIDR
909+ , ipamConfigIPRange :: Maybe CIDR
910+ , ipamSubnetGateway :: Maybe Text
911+ , ipamConfigAuxAddress :: Maybe Text
912+ } deriving (Eq, Show)
913+
914+instance FromJSON IPAMConfig where
915+ parseJSON (JSON.Object o) = IPAMConfig
916+ <$> o .: "Subnet"
917+ <*> o .:? "IPRange"
918+ <*> o .:? "Gateway"
919+ <*> o .:? "AuxAddress"
920+ parseJSON _ = fail "IPAMConfig is not an object"
921+
922+data IPAM = IPAM
923+ { ipamDriver :: IPAMDriver
924+ , ipamConfig :: [IPAMConfig]
925+ , ipamOptions :: HM.HashMap Text Text
926+ } deriving (Eq, Show)
927+
928+instance FromJSON IPAM where
929+ parseJSON (JSON.Object o) = IPAM
930+ <$> o .:? "Driver" .!= DefaultIPAMDriver
931+ <*> o .:? "Config" .!= []
932+ <*> o .:? "Options" .!= HM.empty
933+ parseJSON _ = fail "IPAM is not an object"
934+
935+data NetworkContainer = NetworkContainer
936+ { networkContainerName :: Text
937+ , networkContainerEndpointID :: Text
938+ , networkContainerMacAddress :: Text
939+ , networkContainerIPv4Address :: Text
940+ , networkContainerIPv6Address :: Text
941+ } deriving (Eq, Show)
942+
943+instance FromJSON NetworkContainer where
944+ parseJSON (JSON.Object o) = NetworkContainer
945+ <$> o .: "Name"
946+ <*> o .: "EndpointID"
947+ <*> o .: "MacAddress"
948+ <*> o .: "IPv4Address"
949+ <*> o .: "IPv6Address"
950+ parseJSON _ = fail "NetworkContainer is not an object"
951+
952+data NetworkDetails = NetworkDetails
953+ { networkDetailsName :: Text
954+ , networkDetailsID :: NetworkID
955+ , networkDetailsCreated :: UTCTime
956+ , networkDetailsScope :: NetworkScope
957+ , networkDetailsDriver :: NetworkMode
958+ , networkDetailsEnableIPv6 :: Bool
959+ , networkDetailsInternal :: Bool
960+ , networkDetailsAttachable :: Bool
961+ , networkDetailsIngress :: Bool
962+ , networkDetailsIPAM :: IPAM
963+ , networkDetailsOptions :: HM.HashMap Text Text
964+ , networkDetailsLabels :: HM.HashMap Text Text
965+ , networkDetailsContainers :: HM.HashMap Text NetworkContainer
966+ } deriving (Eq, Show)
967+
968+instance FromJSON NetworkDetails where
969+ parseJSON v@(JSON.Object o) = NetworkDetails
970+ <$> o .: "Name"
971+ <*> parseJSON v
972+ <*> o .: "Created"
973+ <*> o .: "Scope"
974+ <*> o .: "Driver"
975+ <*> o .: "EnableIPv6"
976+ <*> o .: "Internal"
977+ <*> o .: "Attachable"
978+ <*> o .: "Ingress"
979+ <*> o .: "IPAM"
980+ <*> o .:? "Options" .!= HM.empty
981+ <*> o .:? "Labels" .!= HM.empty
982+ <*> o .:? "Containers" .!= HM.empty
983+ parseJSON _ = fail "NetworkDetails is not an object"
984+
985+data NetworkType = BuiltinNetwork | CustomNetwork deriving (Eq, Show)
986+
987+fromNetworkType :: NetworkType -> Text
988+fromNetworkType BuiltinNetwork = "builtin"
989+fromNetworkType CustomNetwork = "custom"
990+
991+instance ToJSON NetworkType where
992+ toJSON = JSON.String . fromNetworkType
993+
994+instance FromJSON NetworkType where
995+ parseJSON (JSON.String "builtin") = return BuiltinNetwork
996+ parseJSON (JSON.String "custom") = return CustomNetwork
997+ parseJSON _ = fail "Failed to parse NetworkType"
998+
999+data NetworkFilter
1000+ = NetworkFilterName Text
1001+ | NetworkFilterID NetworkID
1002+ | NetworkFilterLabel Text
1003+ | NetworkFilterDriver NetworkMode
1004+ | NetworkFilterScope NetworkScope
1005+ | NetworkFilterType NetworkType
1006+ deriving (Eq, Show)
1007+
1008+
1009+instance {-# OVERLAPPING #-} ToJSON [NetworkFilter] where
1010+ toJSON = object . fmap toKV
1011+ where
1012+ toKV (NetworkFilterName n) = "name" .= [n]
1013+ toKV (NetworkFilterID i) = "id" .= [fromNetworkID i]
1014+ toKV (NetworkFilterLabel l) = "label" .= [l]
1015+ toKV (NetworkFilterDriver d) = "driver" .= [fromNetworkMode d]
1016+ toKV (NetworkFilterScope s) = "scope" .= [fromNetworkScope s]
1017+ toKV (NetworkFilterType t) = "type" .= [fromNetworkType t]
1018+
8611019-- TOOD: Add support for SELinux Volume labels (eg. "ro,z" or "ro/Z")
8621020-- | Set permissions on volumes that you mount in the container.
8631021data VolumePermission = ReadWrite | ReadOnly deriving (Eq, Show, Generic)
@@ -1027,11 +1185,14 @@ instance FromJSON NetworkMode where
10271185 parseJSON (JSON.String n) = return $ NetworkNamed n
10281186 parseJSON _ = fail "Unknown NetworkMode"
10291187
1188+fromNetworkMode :: NetworkMode -> Text
1189+fromNetworkMode NetworkBridge = "bridge"
1190+fromNetworkMode NetworkHost = "host"
1191+fromNetworkMode NetworkDisabled = "none"
1192+fromNetworkMode (NetworkNamed n) = n
1193+
10301194instance ToJSON NetworkMode where
1031− toJSON NetworkBridge = JSON.String "bridge"
1032− toJSON NetworkHost = JSON.String "host"
1033− toJSON NetworkDisabled = JSON.String "none"
1034− toJSON (NetworkNamed n) = JSON.String n
1195+ toJSON = JSON.String . fromNetworkMode
10351196
10361197newtype NetworkID = NetworkID Text
10371198 deriving (Eq, Show)
@@ -1564,11 +1725,7 @@ instance FromJSON ContainerConfig where
15641725 macAddress labels stopSignal
15651726 parseJSON _ = fail "NetworkSettings is not an object."
15661727
1567−#if MIN_VERSION_base(4,13,0)
1568−parseIntegerText :: (MonadFail m) => Text -> m Integer
1569−#else
15701728parseIntegerText :: (Monad m) => Text -> m Integer
1571−#endif
15721729parseIntegerText t = case readMaybe $ T.unpack t of
15731730 Nothing ->
15741731 fail "Could not parse Integer"