@@ -5,7 +5,7 @@ module Network.Docker where
55import Control.Applicative ((<$>), (<*>))
66import Control.Lens
77import Data.Aeson (FromJSON, ToJSON, decode, eitherDecode,
8− encode)
8+ toJSON)
99import Data.Aeson.Lens (key, _String)
1010import Data.Aeson.TH
1111import qualified Data.ByteString.Lazy as L
@@ -44,10 +44,10 @@ _dockerGetQuery :: Endpoint -> DockerClientOpts -> IO(Response L.ByteString)
4444_dockerGetQuery endpoint clientOpts = get (fullUrl clientOpts endpoint)
4545
4646_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)
4848
4949emptyPost = "" :: String
50−_dockerEmptyPostQuery endpoint clientOpts = post (fullUrl clientOpts endpoint) (encode emptyPost)
50+_dockerEmptyPostQuery endpoint clientOpts = post (fullUrl clientOpts endpoint) (toJSON emptyPost)
5151
5252getDockerVersion :: DockerClientOpts -> IO (Maybe DockerVersion)
5353getDockerVersion = decodeResponse . _dockerGetQuery "/version"