git.iko.soy/docker-hs
on master help sign in
restore more endpoints with new strategy
74ecd29Deni Bertovic
Network/Docker.hs+12−11
compare with master
unifiedsplit
@@ -98,8 +98,8 @@ getDockerVersion clientOpts = decodeResponse <$> run (getDockerVersionM clientOp
98listContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
98listContainers :: DockerClientOpts -> IO (Maybe [DockerContainer])
99listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts SListContainersEndpoint)
99listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts SListContainersEndpoint)
100
100
101−-- getDockerImages :: DockerClientOpts -> IO (Maybe [DockerImage])
101+listImages :: DockerClientOpts -> IO (Maybe [DockerImage])
102−-- getDockerImages = decodeResponse . _dockerGetQuery "/images/json"
102+listImages clientOpts = decodeResponse <$> run (listImagesM clientOpts SListImagesEndpoint)
103
103
104-- createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
104-- createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
105-- createContainer clientOpts createOpts = getElemFromResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
105-- createContainer clientOpts createOpts = getElemFromResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
@@ -108,19 +108,20 @@ listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts S
108-- startContainer clientOpts containerId startOpts = (^. responseStatus) <$> _dockerPostQuery (printf "/containers/%s/start" containerId) clientOpts startOpts
108-- startContainer clientOpts containerId startOpts = (^. responseStatus) <$> _dockerPostQuery (printf "/containers/%s/start" containerId) clientOpts startOpts
109
109
110stopContainer :: DockerClientOpts -> String -> IO (Status)
110stopContainer :: DockerClientOpts -> String -> IO (Status)
111−stopContainer clientOpts cid = (^. responseStatus) <$> run (stopContainerM clientOpts (SStopContainerEndpoint cid))
111+stopContainer clientOpts cid = (^. responseStatus) <$> run (stopContainerM clientOpts (SStopContainerEndpoint cid))
112
112
113−-- killContainer :: DockerClientOpts -> String -> IO (Status)
113+killContainer :: DockerClientOpts -> String -> IO (Status)
114−-- killContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/kill" containerId) clientOpts
114+killContainer clientOpts cid = (^. responseStatus) <$> run (killContainerM clientOpts (SKillContainerEndpoint cid))
115
115
116−-- restartContainer :: DockerClientOpts -> String -> IO (Status)
116+restartContainer :: DockerClientOpts -> String -> IO (Status)
117−-- restartContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/restart" containerId) clientOpts
117+restartContainer clientOpts cid = (^. responseStatus) <$> run (restartContainerM clientOpts (SRestartContainerEndpoint cid))
118
118
119−-- pauseContainer :: DockerClientOpts -> String -> IO (Status)
119+pauseContainer :: DockerClientOpts -> String -> IO (Status)
120−-- pauseContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/pause" containerId) clientOpts
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))
121
124
122−-- unpauseContainer :: DockerClientOpts -> String -> IO (Status)
123−-- unpauseContainer clientOpts containerId = (^. responseStatus) <$> _dockerEmptyPostQuery (printf "/containers/%s/unpause" containerId) clientOpts
124
125
125-- getContainerLogsStream :: DockerClientOpts -> String -> IO ()
126-- getContainerLogsStream :: DockerClientOpts -> String -> IO ()
126-- getContainerLogsStream clientOpts containerId = do
127-- getContainerLogsStream clientOpts containerId = do
Network/Docker/Internal.hs+16
@@ -64,3 +64,19 @@ stopContainerM clientOpts e = _dockerEmptyPostQuery clientOpts e
64listContainersM :: DockerClientOpts -> SEndpoint ListContainersEndpoint -> HttpRequestM (SEndpoint ListContainersEndpoint)
64listContainersM :: DockerClientOpts -> SEndpoint ListContainersEndpoint -> HttpRequestM (SEndpoint ListContainersEndpoint)
65listContainersM clientOpts e = _dockerGetQuery clientOpts e
65listContainersM clientOpts e = _dockerGetQuery clientOpts e
66
66
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+