updateNdvm = xformVmJSON xform where
  xform tree = case jsGet "/type" tree of
    Just s | jsUnboxString s == "ndvm" -> modify tree
    _ -> tree
    where
      modify = jsSet "/config/kernel-extract" (jsBoxString "/boot/bzImage")
updateNdvm = xformVmJSON xform where
  xform tree = case jsGet "/type" tree of
    Just s | jsUnboxString s == "ndvm" -> modify tree
    _ -> tree
    where
      modify = jsSet "/config/kernel-extract" (jsBoxString "/boot/bzImage")
updateNdvm = xformVmJSON xform where
  xform tree = case jsGet "/type" tree of
    Just s | jsUnboxString s == "ndvm" -> modify tree
    _ -> tree
    where
      modify = jsSet "/config/kernel-extract" (jsBoxString "/boot/bzImage")