git.iko.soy/docker-hs
on master help sign in
Merge pull request #7 from j4/master
4efdeeeDeni Bertovic
Network/Docker.hs+6
compare with master
unifiedsplit
@@ -94,9 +94,15 @@ getDockerVersion = decodeResponse . _dockerGetQuery "/version"
94getDockerContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
94getDockerContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
95getDockerContainers = decodeResponse . _dockerGetQuery "/containers/json"
95getDockerContainers = decodeResponse . _dockerGetQuery "/containers/json"
96
96
97+getAllDockerContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
98+getAllDockerContainers = decodeResponse . _dockerGetQuery "/containers/json?all=true"
99+
97getDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
100getDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
98getDockerImages = decodeResponse . _dockerGetQuery "/images/json"
101getDockerImages = decodeResponse . _dockerGetQuery "/images/json"
99
102
103+getAllDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
104+getAllDockerImages = decodeResponse . _dockerGetQuery "/images/json?all=true"
105+
100createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
106createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
101createContainer clientOpts createOpts = getOutOfResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
107createContainer clientOpts createOpts = getOutOfResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
102
108