@@ -45,57 +45,57 @@ createContainer createOpts = do
4545 clientOpts <- ask
4646 getElemFromResponse "Id" <$> runDocker (createContainerM clientOpts (SCreateContainerEndpoint) createOpts)
4747
48−startContainer :: String -> StartContainerOpts -> DockerM IO (Status)
48+startContainer :: ContainerID -> StartContainerOpts -> DockerM IO (Status)
4949startContainer cid startOpts = do
5050 clientOpts <- ask
5151 (^. responseStatus) <$> runDocker (startContainerM clientOpts (SStartContainerEndpoint cid) startOpts)
5252
53−stopContainer :: String -> DockerM IO (Status)
53+stopContainer :: ContainerID -> DockerM IO (Status)
5454stopContainer cid = do
5555 clientOpts <- ask
5656 (^. responseStatus) <$> runDocker (stopContainerM clientOpts (SStopContainerEndpoint cid))
5757
58−killContainer :: String -> DockerM IO (Status)
58+killContainer :: ContainerID -> DockerM IO (Status)
5959killContainer cid = do
6060 clientOpts <- ask
6161 (^. responseStatus) <$> runDocker (killContainerM clientOpts (SKillContainerEndpoint cid))
6262
63−restartContainer :: String -> DockerM IO (Status)
63+restartContainer :: ContainerID -> DockerM IO (Status)
6464restartContainer cid = do
6565 clientOpts <- ask
6666 (^. responseStatus) <$> runDocker (restartContainerM clientOpts (SRestartContainerEndpoint cid))
6767
68−pauseContainer :: String -> DockerM IO (Status)
68+pauseContainer :: ContainerID -> DockerM IO (Status)
6969pauseContainer cid = do
7070 clientOpts <- ask
7171 (^. responseStatus) <$> runDocker (pauseContainerM clientOpts (SPauseContainerEndpoint cid))
7272
73−unpauseContainer :: String -> DockerM IO (Status)
73+unpauseContainer :: ContainerID -> DockerM IO (Status)
7474unpauseContainer cid = do
7575 clientOpts <- ask
7676 (^. responseStatus) <$> runDocker (unpauseContainerM clientOpts (SUnpauseContainerEndpoint cid))
7777
78−deleteContainer :: String -> DockerM IO (Status)
78+deleteContainer :: ContainerID -> DockerM IO (Status)
7979deleteContainer cid = do
8080 c <- ask
8181 deleteContainerWithOpts defaultDeleteOpts cid
8282
83−deleteContainerWithOpts :: DeleteOpts -> String -> DockerM IO (Status)
83+deleteContainerWithOpts :: DeleteOpts -> ContainerID -> DockerM IO (Status)
8484deleteContainerWithOpts deleteOpts cid = do
8585 clientOpts <- ask
8686 (^. responseStatus) <$> runDocker (deleteContainerM clientOpts (SDeleteContainerEndpoint cid deleteOpts))
8787
88−getContainerLogsWithOpts :: LogOpts -> String -> DockerM IO (L.ByteString)
88+getContainerLogsWithOpts :: LogOpts -> ContainerID -> DockerM IO (L.ByteString)
8989getContainerLogsWithOpts l cid = do
9090 clientOpts <- ask
9191 (^. responseBody) <$> runDocker (getContainerLogsM clientOpts (SContainerLogsEndpoint cid l))
9292
93−getContainerLogs :: String -> DockerM IO (L.ByteString)
93+getContainerLogs :: ContainerID -> DockerM IO (L.ByteString)
9494getContainerLogs cid = do
9595 clientOpts <- ask
9696 (^. responseBody) <$> runDocker (getContainerLogsM clientOpts (SContainerLogsEndpoint cid defaultLogOpts))
9797
98−getContainerLogsStream :: String -> DockerM IO ()
98+getContainerLogsStream :: ContainerID -> DockerM IO ()
9999getContainerLogsStream cid = do
100100 clientOpts <- ask
101101 req <- PH.parseUrl (fullUrl clientOpts url)