git.iko.soy/docker-hs
on master help sign in
restore more endpoints with new strategy
commit74ecd290ca333a33748c42d9ee4263dfa833d2d8 authorDeni Bertovic <deni@denibertovic.com> dateSun 11 Jan 2015, 22:57 (12 years ago) parent9b39b7d
2 files changed+28−11
compare with master
unifiedsplit
Network/Docker.hs+12−11 Network/Docker/Internal.hs+16
Network/Docker.hs+12−11
@@ -98,8 +98,8 @@ getDockerVersion clientOpts = decodeResponse <$> run (getDockerVersionM clientOp
9898listContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
9999listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts SListContainersEndpoint)
100100
101−-- getDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
102−-- getDockerImages = decodeResponse . _dockerGetQuery "/images/json"
101+listImages :: DockerClientOpts -> IO (Maybe [DockerImage])
102+listImages clientOpts = decodeResponse <$> run (listImagesM clientOpts SListImagesEndpoint)
103103
104104-- createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
105105-- createContainer clientOpts createOpts = getElemFromResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
@@ -108,19 +108,20 @@ listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts S
108108-- startContainer clientOpts containerId startOpts = (^. responseStatus) <$> _dockerPostQuery (printf "/containers/%s/start" containerId) clientOpts startOpts
109109
110110stopContainer :: DockerClientOpts -> String -> IO (Status)
111−stopContainer clientOpts cid = (^. responseStatus) <$> run (stopContainerM clientOpts (SStopContainerEndpoint cid))
111+stopContainer clientOpts cid = (^. responseStatus) <$> run (stopContainerM clientOpts (SStopContainerEndpoint cid))
112112
113−-- killContainer :: DockerClientOpts -> String -> IO (Status)
114−-- killContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/kill" containerId) clientOpts
113+killContainer :: DockerClientOpts -> String -> IO (Status)
114+killContainer clientOpts cid = (^. responseStatus) <$> run (killContainerM clientOpts (SKillContainerEndpoint cid))
115115
116−-- restartContainer :: DockerClientOpts -> String -> IO (Status)
117−-- restartContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/restart" containerId) clientOpts
116+restartContainer :: DockerClientOpts -> String -> IO (Status)
117+restartContainer clientOpts cid = (^. responseStatus) <$> run (restartContainerM clientOpts (SRestartContainerEndpoint cid))
118118
119−-- pauseContainer :: DockerClientOpts -> String -> IO (Status)
120−-- pauseContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/pause" containerId) clientOpts
119+pauseContainer :: DockerClientOpts -> String -> IO (Status)
120+pauseContainer clientOpts cid = (^. responseStatus) <$> run (pauseContainerM clientOpts (SPauseContainerEndpoint cid))
121+
122+unpauseContainer :: DockerClientOpts -> String -> IO (Status)
123+unpauseContainer clientOpts cid = (^. responseStatus) <$> run (unpauseContainerM clientOpts (SUnpauseContainerEndpoint cid))
121124
122−-- unpauseContainer :: DockerClientOpts -> String -> IO (Status)
123−-- unpauseContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/unpause" containerId) clientOpts
124125
125126-- getContainerLogsStream :: DockerClientOpts -> String -> IO ()
126127-- getContainerLogsStream clientOpts containerId = do
Network/Docker/Internal.hs+16
@@ -64,3 +64,19 @@ stopContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
6464listContainersM :: DockerClientOpts -> SEndpoint ListContainersEndpoint -> HttpRequestM (SEndpoint ListContainersEndpoint)
6565listContainersM clientOpts e = _dockerGetQuery clientOpts e
6666
67+listImagesM :: DockerClientOpts -> SEndpoint ListImagesEndpoint -> HttpRequestM (SEndpoint ListImagesEndpoint)
68+listImagesM clientOpts e = _dockerGetQuery clientOpts e
69+
70+killContainerM :: DockerClientOpts -> SEndpoint KillContainerEndpoint -> HttpRequestM (SEndpoint KillContainerEndpoint)
71+killContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
72+
73+restartContainerM :: DockerClientOpts -> SEndpoint RestartContainerEndpoint -> HttpRequestM (SEndpoint RestartContainerEndpoint)
74+restartContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
75+
76+pauseContainerM :: DockerClientOpts -> SEndpoint PauseContainerEndpoint -> HttpRequestM (SEndpoint PauseContainerEndpoint)
77+pauseContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
78+
79+unpauseContainerM :: DockerClientOpts -> SEndpoint UnpauseContainerEndpoint -> HttpRequestM (SEndpoint UnpauseContainerEndpoint)
80+unpauseContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
81+
82+