git.iko.soy/docker-hs
on master help sign in
get all containers and images
commitcf06108c4fafd0dd9023cd0f7afd34f9fff8a468 authorJean-Alexandre Peyroux <m@ja.pe> dateSat 7 Nov 2015, 13:37 (11 years ago) parent2d2a0b4
1 file changed+6
compare with master
unifiedsplit
Network/Docker.hs+6
Network/Docker.hs+6
@@ -94,9 +94,15 @@ getDockerVersion = decodeResponse . _dockerGetQuery "/version"
9494getDockerContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
9595getDockerContainers = decodeResponse . _dockerGetQuery "/containers/json"
9696
97+getAllDockerContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
98+getAllDockerContainers = decodeResponse . _dockerGetQuery "/containers/json?all=true"
99+
97100getDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
98101getDockerImages = decodeResponse . _dockerGetQuery "/images/json"
99102
103+getAllDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
104+getAllDockerImages = decodeResponse . _dockerGetQuery "/images/json?all=true"
105+
100106createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
101107createContainer clientOpts createOpts = getOutOfResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
102108