showPrivateJSObject :: (JSON.JSON a) =>
                       [(String, a)] -> JSON.JSObject (Private JSON.JSValue)
showPrivateJSObject value = JSON.toJSObject $ map f value
  where f (k, v) = (k, Private $ JSON.showJSON v)


-- | The hypervisor parameter type. This is currently a simple map,
-- without type checking on key/value pairs.
showPrivateJSObject :: (JSON.JSON a) =>
                       [(String, a)] -> JSON.JSObject (Private JSON.JSValue)
showPrivateJSObject value = JSON.toJSObject $ map f value
  where f (k, v) = (k, Private $ JSON.showJSON v)


-- | The hypervisor parameter type. This is currently a simple map,
-- without type checking on key/value pairs.
showPrivateJSObject value = JSON.toJSObject $ map f value
  where f (k, v) = (k, Private $ JSON.showJSON v)


-- | The hypervisor parameter type. This is currently a simple map,
-- without type checking on key/value pairs.