@@ -14,6 +14,7 @@ module Docker.Client.Api (
1414 , deleteContainer
1515 , inspectContainer
1616 , getContainerLogs
17+ , getContainerLogsStream
1718 -- * Images
1819 , listImages
1920 , buildImageFromDockerfile
@@ -149,11 +150,9 @@ inspectContainer cid = requestHelper GET (InspectContainerEndpoint cid) >>= pars
149150getContainerLogs :: forall m. (MonadIO m, MonadMask m) => LogOpts -> ContainerID -> DockerT m (Either DockerError BSL.ByteString)
150151getContainerLogs logopts cid = requestHelper GET (ContainerLogsEndpoint logopts False cid)
151152
152−-- TODO: Use http-conduit to output to a sink.
153−-- getContainerLogsStream :: forall m. Monad m => Sink BSL.ByteString m b -> LogOpts -> ContainerID -> DockerT m (Either DockerError b)
154−-- getContainerLogsStream sink logopts cid = runResourceT $ do
155−-- response <- http request manager
156−-- responseBody response C.$$+- sink
153+getContainerLogsStream :: forall m b . (MonadIO m, MonadMask m) => LogOpts -> ContainerID -> Sink BS.ByteString m b -> DockerT m (Either DockerError b)
154+getContainerLogsStream logopts cid sink = requestHelper' GET (ContainerLogsEndpoint logopts True cid) sink
155+-- JP: Should the second (follow) argument be True? XXX
157156
158157-- TODO: Add X-Registry-Config
159158-- TODO: Add support for remote URLs to a Dockerfile