updateAudioBackend = xformVmJSON xform where
  xform tree = case jsGet "/os" tree of
    Just (jsUnboxString -> s)
      | (    s == "windows"
          || s == "windows8" ) -> jsSet "/config/sound" (jsBoxString "ac97") tree
    _ -> tree
updateAudioBackend = xformVmJSON xform where
  xform tree = case jsGet "/os" tree of
    Just (jsUnboxString -> s)
      | (    s == "windows"
          || s == "windows8" ) -> jsSet "/config/sound" (jsBoxString "ac97") tree
    _ -> tree
updateAudioBackend = xformVmJSON xform where
  xform tree = case jsGet "/os" tree of
    Just (jsUnboxString -> s)
      | (    s == "windows"
          || s == "windows8" ) -> jsSet "/config/sound" (jsBoxString "ac97") tree
    _ -> tree