on master help sign in
Fixes RestartPolicy

RestartOff wasn't serializing properly on v1.24 API.

commit97ddb2f05fbb0daaa3526a8bc7283bf7ecb0392f authorDeni Bertovic <deni@denibertovic.com> dateMon 20 Mar 2017, 10:58 (10 years ago) parent05d4071
1 file changed+2−2
src/Docker/Client/Types.hs+2−2
src/Docker/Client/Types.hs+2−2
@@ -1090,7 +1090,7 @@ instance FromJSON RestartPolicy where
10901090 "on-failure" -> do
10911091 retry <- o .: "MaximumRetryCount"
10921092 return $ RestartOnFailure retry
1093− "off" -> return RestartOff
1093+ "no" -> return RestartOff
10941094 _ -> fail "Could not parse RestartPolicy"
10951095 parseJSON _ = fail "RestartPolicy is not an object"
10961096
@@ -1098,7 +1098,7 @@ instance ToJSON RestartPolicy where
10981098 toJSON RestartAlways = object ["Name" .= JSON.String "always"]
10991099 toJSON RestartUnlessStopped = object ["Name" .= JSON.String "unless-stopped"]
11001100 toJSON (RestartOnFailure c) = object ["Name" .= JSON.String "on-failure", "MaximumRetryCount" .= c]
1101− toJSON RestartOff = object ["Name" .= JSON.String "off"]
1101+ toJSON RestartOff = object ["Name" .= JSON.String "no"]
11021102
11031103data Isolation = Default | Process | Hyperv deriving (Eq, Show)
11041104