Fixes for -safe-string.

[guestfs-browser.git] / deviceSet.ml

diff --git a/deviceSet.ml b/deviceSet.ml
index b51391e..fe69d25 100644 (file)
--- a/deviceSet.ml
+++ b/deviceSet.ml
@@ -25,9 +25,9 @@ let canonical dev =
     (dev.[5] = 'h' || dev.[5] = 's' || dev.[5] = 'v') &&
     dev.[6] = 'd' &&
     dev.[7] >= 'a' && dev.[7] <= 'z' then (
-      let dev = String.copy dev in
-      dev.[5] <- 's';
-      dev
+      let dev = Bytes.of_string dev in
+      Bytes.set dev 5 's';
+      Bytes.to_string dev
     )
   else
     dev