diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-04-11 16:18:29 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-04-11 16:22:58 +0100 |
| commit | a3d6629a0b54aca6d7b5b38750399b5396cdbf07 (patch) | |
| tree | b97d6cf5d6875e807741c41e5f466460cdf28142 /sysprep/utils.mli | |
| parent | edca57b49e88d179d996652a44f7d6ba5b9ca729 (diff) | |
| download | libguestfs-a3d6629a0b54aca6d7b5b38750399b5396cdbf07.tar.gz libguestfs-a3d6629a0b54aca6d7b5b38750399b5396cdbf07.tar.xz libguestfs-a3d6629a0b54aca6d7b5b38750399b5396cdbf07.zip | |
sysprep: Move skip_dashes function into Utils module.
This is mostly code motion, but I also changed the function to use
String.unsafe_get and raise Invalid_argument on failure.
Diffstat (limited to 'sysprep/utils.mli')
| -rw-r--r-- | sysprep/utils.mli | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/sysprep/utils.mli b/sysprep/utils.mli index f9cf16c8..51426f44 100644 --- a/sysprep/utils.mli +++ b/sysprep/utils.mli @@ -37,3 +37,10 @@ val string_random8 : unit -> string (** Return a random 8 character string, suitable as a temporary filename since every filesystem supports at least 8 character filenames. *) + +val skip_dashes : string -> string +(** Take a string like ["--str"] and return ["str"], that is, skip + any leading dash characters. + + If the string contains only dash characters, this raises + [Invalid_argument "skip_dashes"]. *) |