git.iko.soy/docker-hs
on master help sign in
Remove unused type variable
615cbd1Deni Bertovic
src/Docker.hs+14−13
compare with master
unifiedsplit
@@ -16,7 +16,7 @@ import Network.HTTP.Types (StdMethod (..))
16import Docker.Internal
16import Docker.Internal
17import Docker.Types
17import Docker.Types
18
18
19−getDockerVersion :: forall m a. MonadThrow m => DockerT m DockerVersion
19+getDockerVersion :: forall m. MonadThrow m => DockerT m DockerVersion
20getDockerVersion = do
20getDockerVersion = do
21 (opts, httpHandler) <- ask
21 (opts, httpHandler) <- ask
22 let request = fromJust $ mkHttpRequest GET VersionEndpoint opts
22 let request = fromJust $ mkHttpRequest GET VersionEndpoint opts
@@ -25,7 +25,7 @@ getDockerVersion = do
25 let res = decode body
25 let res = decode body
26 return $ fromJust res
26 return $ fromJust res
27
27
28−listContainers :: forall m a. MonadThrow m => ListOpts -> DockerT m [Container]
28+listContainers :: forall m. MonadThrow m => ListOpts -> DockerT m [Container]
29listContainers lopts = do
29listContainers lopts = do
30 (opts, httpHandler) <- ask
30 (opts, httpHandler) <- ask
31 let request = fromJust $ mkHttpRequest GET (ListContainersEndpoint lopts) opts
31 let request = fromJust $ mkHttpRequest GET (ListContainersEndpoint lopts) opts
@@ -34,7 +34,7 @@ listContainers lopts = do
34 let res = decode body
34 let res = decode body
35 return $ fromJust res
35 return $ fromJust res
36
36
37−listImages :: forall m a. MonadThrow m => ListOpts -> DockerT m [Image]
37+listImages :: forall m. MonadThrow m => ListOpts -> DockerT m [Image]
38listImages lopts = do
38listImages lopts = do
39 (opts, httpHandler) <- ask
39 (opts, httpHandler) <- ask
40 let request = fromJust $ mkHttpRequest GET (ListImagesEndpoint lopts) opts
40 let request = fromJust $ mkHttpRequest GET (ListImagesEndpoint lopts) opts
@@ -43,58 +43,59 @@ listImages lopts = do
43 let res = decode body
43 let res = decode body
44 return $ fromJust res
44 return $ fromJust res
45
45
46−createContainer :: forall m a. MonadThrow m => CreateOpts -> DockerT m ContainerID
46+createContainer :: forall m. MonadThrow m => CreateOpts -> DockerT m ContainerID
47createContainer = undefined
47createContainer = undefined
48
48
49−startContainer :: forall m a. MonadThrow m => StartOpts -> ContainerID -> DockerT m ContainerID
49+startContainer :: forall m. MonadThrow m => StartOpts -> ContainerID -> DockerT m ContainerID
50startContainer sopts cid = do
50startContainer sopts cid = do
51 (opts, httpHandler) <- ask
51 (opts, httpHandler) <- ask
52 let request = fromJust $ mkHttpRequest POST (StartContainerEndpoint sopts cid) opts
52 let request = fromJust $ mkHttpRequest POST (StartContainerEndpoint sopts cid) opts
53 _ <- lift $ ((httpHandler request) :: m Response)
53 _ <- lift $ ((httpHandler request) :: m Response)
54 return cid
54 return cid
55
55
56−stopContainer :: forall m a. MonadThrow m => Timeout -> ContainerID ->DockerT m ContainerID
56+stopContainer :: forall m. MonadThrow m => Timeout -> ContainerID ->DockerT m ContainerID
57stopContainer t cid = do
57stopContainer t cid = do
58 (opts, httpHandler) <- ask
58 (opts, httpHandler) <- ask
59 let request = fromJust $ mkHttpRequest POST (StopContainerEndpoint t cid) opts
59 let request = fromJust $ mkHttpRequest POST (StopContainerEndpoint t cid) opts
60 _ <- lift $ ((httpHandler request) :: m Response)
60 _ <- lift $ ((httpHandler request) :: m Response)
61 return cid
61 return cid
62
62
63−killContainer :: forall m a. MonadThrow m => Signal -> ContainerID -> DockerT m ContainerID
63+killContainer :: forall m. MonadThrow m => Signal -> ContainerID -> DockerT m ContainerID
64killContainer s cid = do
64killContainer s cid = do
65 (opts, httpHandler) <- ask
65 (opts, httpHandler) <- ask
66 let request = fromJust $ mkHttpRequest POST (KillContainerEndpoint s cid) opts
66 let request = fromJust $ mkHttpRequest POST (KillContainerEndpoint s cid) opts
67 _ <- lift $ ((httpHandler request) :: m Response)
67 _ <- lift $ ((httpHandler request) :: m Response)
68 return cid
68 return cid
69
69
70−restartContainer :: forall m a. MonadThrow m => Timeout -> ContainerID -> DockerT m ContainerID
70+restartContainer :: forall m. MonadThrow m => Timeout -> ContainerID -> DockerT m ContainerID
71restartContainer t cid = do
71restartContainer t cid = do
72 (opts, httpHandler) <- ask
72 (opts, httpHandler) <- ask
73 let request = fromJust $ mkHttpRequest POST (RestartContainerEndpoint t cid) opts
73 let request = fromJust $ mkHttpRequest POST (RestartContainerEndpoint t cid) opts
74 _ <- lift $ ((httpHandler request) :: m Response)
74 _ <- lift $ ((httpHandler request) :: m Response)
75 return cid
75 return cid
76
76
77−pauseContainer :: forall m a. MonadThrow m => ContainerID -> DockerT m ContainerID
77+pauseContainer :: forall m. MonadThrow m => ContainerID -> DockerT m ContainerID
78pauseContainer cid = do
78pauseContainer cid = do
79 (opts, httpHandler) <- ask
79 (opts, httpHandler) <- ask
80 let request = fromJust $ mkHttpRequest POST (PauseContainerEndpoint cid) opts
80 let request = fromJust $ mkHttpRequest POST (PauseContainerEndpoint cid) opts
81 _ <- lift $ ((httpHandler request) :: m Response)
81 _ <- lift $ ((httpHandler request) :: m Response)
82 return cid
82 return cid
83
83
84−unpauseContainer :: forall m a. MonadThrow m => ContainerID -> DockerT m ContainerID
84+unpauseContainer :: forall m. MonadThrow m => ContainerID -> DockerT m ContainerID
85unpauseContainer cid = do
85unpauseContainer cid = do
86 (opts, httpHandler) <- ask
86 (opts, httpHandler) <- ask
87 let request = fromJust $ mkHttpRequest GET (UnpauseContainerEndpoint cid) opts
87 let request = fromJust $ mkHttpRequest GET (UnpauseContainerEndpoint cid) opts
88 _ <- lift $ ((httpHandler request) :: m Response)
88 _ <- lift $ ((httpHandler request) :: m Response)
89 return cid
89 return cid
90
90
91−deleteContainer :: forall m a. MonadThrow m => DeleteOpts -> ContainerID -> DockerT m ContainerID
91+deleteContainer :: forall m. MonadThrow m => DeleteOpts -> ContainerID -> DockerT m ContainerID
92deleteContainer dopts cid = do
92deleteContainer dopts cid = do
93 (opts, httpHandler) <- ask
93 (opts, httpHandler) <- ask
94 let request = fromJust $ mkHttpRequest DELETE (DeleteContainerEndpoint dopts cid) opts
94 let request = fromJust $ mkHttpRequest DELETE (DeleteContainerEndpoint dopts cid) opts
95 _ <- lift $ ((httpHandler request) :: m Response)
95 _ <- lift $ ((httpHandler request) :: m Response)
96 return cid
96 return cid
97
97
98−getContainerLogs :: forall m a. MonadThrow m => LogOpts -> ContainerID -> DockerT m ()
98+getContainerLogs :: forall m. MonadThrow m => LogOpts -> ContainerID -> DockerT m ()
99−getContainerLogs = undefined
99+getContainerLogs logopts cid = undefined
100+
100
101