Commit 70c2362e authored by Agata Murawska's avatar Agata Murawska
Browse files

Pretty printing JSValue


Signed-off-by: default avatarAgata Murawska <agatamurawska@google.com>
Reviewed-by: default avatarIustin Pop <iustin@google.com>
parent 0ae9ddc4
...@@ -280,7 +280,7 @@ instance Rpc RpcCallInstanceInfo RpcResultInstanceInfo where ...@@ -280,7 +280,7 @@ instance Rpc RpcCallInstanceInfo RpcResultInstanceInfo where
[] -> Right $ RpcResultInstanceInfo Nothing [] -> Right $ RpcResultInstanceInfo Nothing
_ -> fromJSValueToRes res (RpcResultInstanceInfo . Just) _ -> fromJSValueToRes res (RpcResultInstanceInfo . Just)
_ -> Left $ JsonDecodeError _ -> Left $ JsonDecodeError
("Expected JSObject, got " ++ show res) ("Expected JSObject, got " ++ show (pp_value res))
-- | AllInstancesInfo -- | AllInstancesInfo
-- Returns information about all running instances on the given nodes -- Returns information about all running instances on the given nodes
...@@ -307,7 +307,7 @@ instance Rpc RpcCallAllInstancesInfo RpcResultAllInstancesInfo where ...@@ -307,7 +307,7 @@ instance Rpc RpcCallAllInstancesInfo RpcResultAllInstancesInfo where
Left err -> Left err Left err -> Left err
Right insts -> Right $ RpcResultAllInstancesInfo insts Right insts -> Right $ RpcResultAllInstancesInfo insts
_ -> Left $ JsonDecodeError _ -> Left $ JsonDecodeError
("Expected JSObject, got " ++ show res) ("Expected JSObject, got " ++ show (pp_value res))
-- | InstanceList -- | InstanceList
-- Returns the list of running instances on the given nodes. -- Returns the list of running instances on the given nodes.
......
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