@@ -5,7 +5,7 @@ module Network.Docker where
5import Control.Applicative ((<$>), (<*>))
5import Control.Applicative ((<$>), (<*>))
6import Control.Lens
6import Control.Lens
7import Data.Aeson (FromJSON, ToJSON, decode, eitherDecode,
7import Data.Aeson (FromJSON, ToJSON, decode, eitherDecode,
9import Data.Aeson.Lens (key, _String)
9import Data.Aeson.Lens (key, _String)
10import Data.Aeson.TH
10import Data.Aeson.TH
11import qualified Data.ByteString.Lazy as L
11import qualified Data.ByteString.Lazy as L
@@ -44,10 +44,10 @@ _dockerGetQuery :: Endpoint -> DockerClientOpts -> IO(Response L.ByteString)
44_dockerGetQuery endpoint clientOpts = get (fullUrl clientOpts endpoint)
44_dockerGetQuery endpoint clientOpts = get (fullUrl clientOpts endpoint)
46_dockerPostQuery :: ToJSON a => Endpoint -> DockerClientOpts -> a -> IO (Response L.ByteString)
46_dockerPostQuery :: ToJSON a => Endpoint -> DockerClientOpts -> a -> IO (Response L.ByteString)
47−_dockerPostQuery endpoint clientOpts postObject = post (fullUrl clientOpts endpoint) (encode postObject)
47+_dockerPostQuery endpoint clientOpts postObject = post (fullUrl clientOpts endpoint) (toJSON postObject)
49emptyPost = "" :: String
49emptyPost = "" :: String
50−_dockerEmptyPostQuery endpoint clientOpts = post (fullUrl clientOpts endpoint) (encode emptyPost)
50+_dockerEmptyPostQuery endpoint clientOpts = post (fullUrl clientOpts endpoint) (toJSON emptyPost)
52getDockerVersion :: DockerClientOpts -> IO (Maybe DockerVersion)
52getDockerVersion :: DockerClientOpts -> IO (Maybe DockerVersion)
53getDockerVersion = decodeResponse . _dockerGetQuery "/version"
53getDockerVersion = decodeResponse . _dockerGetQuery "/version"