git.iko.soy/docker-hs
on master help sign in
Fixes RestartPolicy
97ddb2fDeni Bertovic
src/Docker/Client/Types.hs+2−2
compare with master
unifiedsplit
@@ -1090,7 +1090,7 @@ instance FromJSON RestartPolicy where
1090 "on-failure" -> do
1090 "on-failure" -> do
1091 retry <- o .: "MaximumRetryCount"
1091 retry <- o .: "MaximumRetryCount"
1092 return $ RestartOnFailure retry
1092 return $ RestartOnFailure retry
1093− "off" -> return RestartOff
1093+ "no" -> return RestartOff
1094 _ -> fail "Could not parse RestartPolicy"
1094 _ -> fail "Could not parse RestartPolicy"
1095 parseJSON _ = fail "RestartPolicy is not an object"
1095 parseJSON _ = fail "RestartPolicy is not an object"
1096
1096
@@ -1098,7 +1098,7 @@ instance ToJSON RestartPolicy where
1098 toJSON RestartAlways = object ["Name" .= JSON.String "always"]
1098 toJSON RestartAlways = object ["Name" .= JSON.String "always"]
1099 toJSON RestartUnlessStopped = object ["Name" .= JSON.String "unless-stopped"]
1099 toJSON RestartUnlessStopped = object ["Name" .= JSON.String "unless-stopped"]
1100 toJSON (RestartOnFailure c) = object ["Name" .= JSON.String "on-failure", "MaximumRetryCount" .= c]
1100 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"]
1102
1102
1103data Isolation = Default | Process | Hyperv deriving (Eq, Show)
1103data Isolation = Default | Process | Hyperv deriving (Eq, Show)
1104
1104