diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2012-08-16 12:58:49 +0100 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2012-08-16 18:21:07 +0100 |
| commit | 0f33a1d90c65f31444e14aef27d489706230939f (patch) | |
| tree | 1b2f45cb9b73da38c4c5d0266a2aeb03c47c1cec /sysprep/utils.ml | |
| parent | 6f5447abe34dcddefa0885b006e65419fe84717a (diff) | |
| download | libguestfs-0f33a1d90c65f31444e14aef27d489706230939f.tar.gz libguestfs-0f33a1d90c65f31444e14aef27d489706230939f.tar.xz libguestfs-0f33a1d90c65f31444e14aef27d489706230939f.zip | |
sysprep: Improve error messages.
Diffstat (limited to 'sysprep/utils.ml')
| -rw-r--r-- | sysprep/utils.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/sysprep/utils.ml b/sysprep/utils.ml index 003ae865..3b3ad8af 100644 --- a/sysprep/utils.ml +++ b/sysprep/utils.ml @@ -24,6 +24,8 @@ let (//) = Filename.concat let () = Random.self_init () +let failwithf fs = ksprintf failwith fs + let string_prefix str prefix = let n = String.length prefix in String.length str >= n && String.sub str 0 n = prefix |