Commit af9b62d7 authored by Niklas Hambuechen's avatar Niklas Hambuechen Committed by Klaus Aehlig
Browse files

Fix compilation of really-all target

b9e12624

 introduced a `KRInstanceConsoleInfo` constructor, but used it
as `KRConsoleInstanceInfo` (which can't possibly have compiled).
Signed-off-by: default avatarNiklas Hambuechen <niklash@google.com>
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent b50259c1
...@@ -146,7 +146,7 @@ parseRpc "instance_info" f = ...@@ -146,7 +146,7 @@ parseRpc "instance_info" f =
parseRpc "all_instances_info" f = parseRpc "all_instances_info" f =
fromJResult "parsing rpc" (decode f) >>= Ok . KRAllInstancesInfo fromJResult "parsing rpc" (decode f) >>= Ok . KRAllInstancesInfo
parseRpc "console_instance_info" f = parseRpc "console_instance_info" f =
fromJResult "parsing rpc" (decode f) >>= Ok . KRConsoleInstanceInfo fromJResult "parsing rpc" (decode f) >>= Ok . KRInstanceConsoleInfo
parseRpc "instance_list" f = parseRpc "instance_list" f =
fromJResult "parsing rpc" (decode f) >>= Ok . KRInstanceList fromJResult "parsing rpc" (decode f) >>= Ok . KRInstanceList
parseRpc "node_info" f = parseRpc "node_info" f =
...@@ -167,7 +167,7 @@ parseRpc s _ = Bad $ "Unknown rpc '" ++ s ++ "'" ...@@ -167,7 +167,7 @@ parseRpc s _ = Bad $ "Unknown rpc '" ++ s ++ "'"
execRpc :: [Node] -> KnownRpc -> IO [[String]] execRpc :: [Node] -> KnownRpc -> IO [[String]]
execRpc n (KRInstanceInfo v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRInstanceInfo v) = formatRpcRes `fmap` executeRpcCall n v
execRpc n (KRAllInstancesInfo v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRAllInstancesInfo v) = formatRpcRes `fmap` executeRpcCall n v
execRpc n (KRConsoleInstanceInfo v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRInstanceConsoleInfo v) = formatRpcRes `fmap` executeRpcCall n v
execRpc n (KRInstanceList v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRInstanceList v) = formatRpcRes `fmap` executeRpcCall n v
execRpc n (KRNodeInfo v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRNodeInfo v) = formatRpcRes `fmap` executeRpcCall n v
execRpc n (KRVersion v) = formatRpcRes `fmap` executeRpcCall n v execRpc n (KRVersion v) = formatRpcRes `fmap` executeRpcCall n v
......
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