Don't need to evaluate this every time we call the function.
---
customize/firstboot.ml | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/customize/firstboot.ml b/customize/firstboot.ml
index b12d616..c4af7a9 100644
--- a/customize/firstboot.ml
+++ b/customize/firstboot.ml
@@ -27,8 +27,10 @@ open Regedit
let unix2dos s =
String.concat "\r\n" (Str.split_delim (Str.regexp_string "\n") s)
-let sanitize_name n =
- Str.global_replace (Str.regexp "[^A-Za-z0-9_]") "-" n
+let sanitize_name =
+ let rex = Str.regexp "[^A-Za-z0-9_]" in
+ fun n ->
+ Str.global_replace rex "-" n
(* For Linux guests. *)
module Linux = struct
--
2.3.1