[Libguestfs] [PATCH 1/2] firstboot: Factor out regular expression constant.

[Richard W.M. Jones]

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