Commit becfd918 authored by Jose A. Lopes's avatar Jose A. Lopes
Browse files

Hs2Py constants: improve auto repair



Fix auto repair related constants to use the Haskell type 'AutoRepairResult' instead of simple 'String' values.
Signed-off-by: default avatarJose A. Lopes <jabolopes@google.com>
Reviewed-by: default avatarThomas Thrainer <thomasth@google.com>
parent 81ae485c
......@@ -3796,16 +3796,16 @@ autoRepairTagSuspended = autoRepairTagPrefix ++ "suspend:"
-- * Auto-repair levels
autoRepairFailover :: String
autoRepairFailover = "failover"
autoRepairFailover = Types.autoRepairTypeToRaw ArFailover
autoRepairFixStorage :: String
autoRepairFixStorage = "fix-storage"
autoRepairFixStorage = Types.autoRepairTypeToRaw ArFixStorage
autoRepairMigrate :: String
autoRepairMigrate = "migrate"
autoRepairMigrate = Types.autoRepairTypeToRaw ArMigrate
autoRepairReinstall :: String
autoRepairReinstall = "reinstall"
autoRepairReinstall = Types.autoRepairTypeToRaw ArReinstall
autoRepairAllTypes :: FrozenSet String
autoRepairAllTypes =
......@@ -3817,13 +3817,13 @@ autoRepairAllTypes =
-- * Auto-repair results
autoRepairEnoperm :: String
autoRepairEnoperm = "enoperm"
autoRepairEnoperm = Types.autoRepairResultToRaw ArEnoperm
autoRepairFailure :: String
autoRepairFailure = "failure"
autoRepairFailure = Types.autoRepairResultToRaw ArFailure
autoRepairSuccess :: String
autoRepairSuccess = "success"
autoRepairSuccess = Types.autoRepairResultToRaw ArSuccess
autoRepairAllResults :: FrozenSet String
autoRepairAllResults =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment