stdlib/fedora: Use grep -F when matching %fedora-rebuild-name

[goals.git] / src / utils.ml

diff --git a/src/utils.ml b/src/utils.ml
index 50adfb4..c4722a8 100644 (file)
--- a/src/utils.ml
+++ b/src/utils.ml
@@ -19,11 +19,15 @@
 
 open Printf
 
+external nprocs : unit -> int = "nprocs"
+
 let failwithf fs = ksprintf failwith fs
 
 let (//) = Filename.concat
 let is_directory d = try Sys.is_directory d with Sys_error _ -> false
 
+let unique = let i = ref 0 in fun () -> incr i; !i
+
 (* From OCaml 4.08 sources.  We can remove this when we can
  * depend on min OCaml 4.08.
  *)