@@ -16,7 +16,7 @@ import Network.HTTP.Types (StdMethod (..))
1616import Docker.Internal
1717import Docker.Types
1818
19−getDockerVersion :: forall m a. MonadThrow m => DockerT m DockerVersion
19+getDockerVersion :: forall m. MonadThrow m => DockerT m DockerVersion
2020getDockerVersion = do
2121 (opts, httpHandler) <- ask
2222 let request = fromJust $ mkHttpRequest GET VersionEndpoint opts
@@ -25,7 +25,7 @@ getDockerVersion = do
2525 let res = decode body
2626 return $ fromJust res
2727
28−listContainers :: forall m a. MonadThrow m => ListOpts -> DockerT m [Container]
28+listContainers :: forall m. MonadThrow m => ListOpts -> DockerT m [Container]
2929listContainers lopts = do
3030 (opts, httpHandler) <- ask
3131 let request = fromJust $ mkHttpRequest GET (ListContainersEndpoint lopts) opts
@@ -34,7 +34,7 @@ listContainers lopts = do
3434 let res = decode body
3535 return $ fromJust res
3636
37−listImages :: forall m a. MonadThrow m => ListOpts -> DockerT m [Image]
37+listImages :: forall m. MonadThrow m => ListOpts -> DockerT m [Image]
3838listImages lopts = do
3939 (opts, httpHandler) <- ask
4040 let request = fromJust $ mkHttpRequest GET (ListImagesEndpoint lopts) opts
@@ -43,58 +43,59 @@ listImages lopts = do
4343 let res = decode body
4444 return $ fromJust res
4545
46−createContainer :: forall m a. MonadThrow m => CreateOpts -> DockerT m ContainerID
46+createContainer :: forall m. MonadThrow m => CreateOpts -> DockerT m ContainerID
4747createContainer = undefined
4848
49−startContainer :: forall m a. MonadThrow m => StartOpts -> ContainerID -> DockerT m ContainerID
49+startContainer :: forall m. MonadThrow m => StartOpts -> ContainerID -> DockerT m ContainerID
5050startContainer sopts cid = do
5151 (opts, httpHandler) <- ask
5252 let request = fromJust $ mkHttpRequest POST (StartContainerEndpoint sopts cid) opts
5353 _ <- lift $ ((httpHandler request) :: m Response)
5454 return cid
5555
56−stopContainer :: forall m a. MonadThrow m => Timeout -> ContainerID ->DockerT m ContainerID
56+stopContainer :: forall m. MonadThrow m => Timeout -> ContainerID ->DockerT m ContainerID
5757stopContainer t cid = do
5858 (opts, httpHandler) <- ask
5959 let request = fromJust $ mkHttpRequest POST (StopContainerEndpoint t cid) opts
6060 _ <- lift $ ((httpHandler request) :: m Response)
6161 return cid
6262
63−killContainer :: forall m a. MonadThrow m => Signal -> ContainerID -> DockerT m ContainerID
63+killContainer :: forall m. MonadThrow m => Signal -> ContainerID -> DockerT m ContainerID
6464killContainer s cid = do
6565 (opts, httpHandler) <- ask
6666 let request = fromJust $ mkHttpRequest POST (KillContainerEndpoint s cid) opts
6767 _ <- lift $ ((httpHandler request) :: m Response)
6868 return cid
6969
70−restartContainer :: forall m a. MonadThrow m => Timeout -> ContainerID -> DockerT m ContainerID
70+restartContainer :: forall m. MonadThrow m => Timeout -> ContainerID -> DockerT m ContainerID
7171restartContainer t cid = do
7272 (opts, httpHandler) <- ask
7373 let request = fromJust $ mkHttpRequest POST (RestartContainerEndpoint t cid) opts
7474 _ <- lift $ ((httpHandler request) :: m Response)
7575 return cid
7676
77−pauseContainer :: forall m a. MonadThrow m => ContainerID -> DockerT m ContainerID
77+pauseContainer :: forall m. MonadThrow m => ContainerID -> DockerT m ContainerID
7878pauseContainer cid = do
7979 (opts, httpHandler) <- ask
8080 let request = fromJust $ mkHttpRequest POST (PauseContainerEndpoint cid) opts
8181 _ <- lift $ ((httpHandler request) :: m Response)
8282 return cid
8383
84−unpauseContainer :: forall m a. MonadThrow m => ContainerID -> DockerT m ContainerID
84+unpauseContainer :: forall m. MonadThrow m => ContainerID -> DockerT m ContainerID
8585unpauseContainer cid = do
8686 (opts, httpHandler) <- ask
8787 let request = fromJust $ mkHttpRequest GET (UnpauseContainerEndpoint cid) opts
8888 _ <- lift $ ((httpHandler request) :: m Response)
8989 return cid
9090
91−deleteContainer :: forall m a. MonadThrow m => DeleteOpts -> ContainerID -> DockerT m ContainerID
91+deleteContainer :: forall m. MonadThrow m => DeleteOpts -> ContainerID -> DockerT m ContainerID
9292deleteContainer dopts cid = do
9393 (opts, httpHandler) <- ask
9494 let request = fromJust $ mkHttpRequest DELETE (DeleteContainerEndpoint dopts cid) opts
9595 _ <- lift $ ((httpHandler request) :: m Response)
9696 return cid
9797
98−getContainerLogs :: forall m a. MonadThrow m => LogOpts -> ContainerID -> DockerT m ()
99−getContainerLogs = undefined
98+getContainerLogs :: forall m. MonadThrow m => LogOpts -> ContainerID -> DockerT m ()
99+getContainerLogs logopts cid = undefined
100+
100101