@@ -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