@@ -14,7 +14,15 @@ import Data.Aeson.TH
1414import qualified Data.ByteString.Lazy as L
1515import Data.Char
1616import qualified Data.Text as T
17+import qualified Data.Text as T
1718import Network.Docker.Options
19+import Network.Wreq
20+-- import Pipes
21+-- import qualified Pipes.ByteString as PB
22+-- import qualified Pipes.HTTP as PH
23+
24+
25+import Network.Docker.Internal
1826import Network.Docker.Types
1927import Network.HTTP.Client.OpenSSL
2028import Network.Wreq
@@ -101,11 +109,11 @@ listContainers clientOpts = decodeResponse <$> run (listContainersM clientOpts S
101109listImages :: DockerClientOpts -> IO (Maybe [DockerImage])
102110listImages clientOpts = decodeResponse <$> run (listImagesM clientOpts SListImagesEndpoint)
103111
104−-- createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
105−-- createContainer clientOpts createOpts = getElemFromResponse "Id" <$> (_dockerPostQuery "/containers/create" clientOpts createOpts)
112+createContainer :: DockerClientOpts -> CreateContainerOpts -> IO(Maybe T.Text)
113+createContainer clientOpts createOpts = getElemFromResponse "Id" <$> run (createContainerM clientOpts (SCreateContainerEndpoint) createOpts)
106114
107−-- startContainer :: DockerClientOpts -> String -> StartContainerOpts -> IO(Status)
108−-- startContainer clientOpts containerId startOpts = (^. responseStatus) <$> _dockerPostQuery (printf "/containers/%s/start" containerId) clientOpts startOpts
115+startContainer :: DockerClientOpts -> String -> StartContainerOpts -> IO(Status)
116+startContainer clientOpts cid startOpts = (^. responseStatus) <$> run (startContainerM clientOpts (SStartContainerEndpoint cid) startOpts)
109117
110118stopContainer :: DockerClientOpts -> String -> IO (Status)
111119stopContainer clientOpts cid = (^. responseStatus) <$> run (stopContainerM clientOpts (SStopContainerEndpoint cid))