|
 |
da373f |
From 1d6f775d8826915f9547c7dcac0fd10e702c3d80 Mon Sep 17 00:00:00 2001
|
|
|
3efd08 |
From: Pino Toscano <ptoscano@redhat.com>
|
|
|
3efd08 |
Date: Mon, 1 Apr 2019 17:01:44 +0200
|
|
|
3efd08 |
Subject: [PATCH] OCaml tools: fix 3999 -> 3339 typo
|
|
|
3efd08 |
|
|
|
3efd08 |
RFC 3339 is the actual RFC for date/time strings.
|
|
|
3efd08 |
Typo found by Martin 'eagle eyes' Kletzander.
|
|
|
3efd08 |
|
|
|
3efd08 |
Fixes commit f79129b8dc92470e3a5597daf53c84038bd6859e.
|
|
|
3efd08 |
|
|
|
3efd08 |
(cherry picked from commit 1086599ad8eeb8be299d5ffbcb2efb1024ff9ab8)
|
|
|
3efd08 |
---
|
|
|
3efd08 |
common/mltools/tools_utils-c.c | 4 ++--
|
|
|
3efd08 |
common/mltools/tools_utils.ml | 4 ++--
|
|
|
3efd08 |
lib/guestfs.pod | 2 +-
|
|
|
3efd08 |
3 files changed, 5 insertions(+), 5 deletions(-)
|
|
|
3efd08 |
|
|
|
3efd08 |
diff --git a/common/mltools/tools_utils-c.c b/common/mltools/tools_utils-c.c
|
|
|
3efd08 |
index b015dcace..3b80091c0 100644
|
|
|
3efd08 |
--- a/common/mltools/tools_utils-c.c
|
|
|
3efd08 |
+++ b/common/mltools/tools_utils-c.c
|
|
|
3efd08 |
@@ -39,7 +39,7 @@
|
|
|
3efd08 |
extern value guestfs_int_mllib_inspect_decrypt (value gv, value gpv, value keysv);
|
|
|
3efd08 |
extern value guestfs_int_mllib_set_echo_keys (value unitv);
|
|
|
3efd08 |
extern value guestfs_int_mllib_set_keys_from_stdin (value unitv);
|
|
|
3efd08 |
-extern value guestfs_int_mllib_rfc3999_date_time_string (value unitv);
|
|
|
3efd08 |
+extern value guestfs_int_mllib_rfc3339_date_time_string (value unitv);
|
|
|
3efd08 |
|
|
|
3efd08 |
/* Interface with the guestfish inspection and decryption code. */
|
|
|
3efd08 |
int echo_keys = 0;
|
|
|
3efd08 |
@@ -108,7 +108,7 @@ guestfs_int_mllib_set_keys_from_stdin (value unitv)
|
|
|
3efd08 |
}
|
|
|
3efd08 |
|
|
|
3efd08 |
value
|
|
|
3efd08 |
-guestfs_int_mllib_rfc3999_date_time_string (value unitv)
|
|
|
3efd08 |
+guestfs_int_mllib_rfc3339_date_time_string (value unitv)
|
|
|
3efd08 |
{
|
|
|
3efd08 |
CAMLparam1 (unitv);
|
|
|
3efd08 |
char buf[64];
|
|
|
3efd08 |
diff --git a/common/mltools/tools_utils.ml b/common/mltools/tools_utils.ml
|
|
|
3efd08 |
index de42df600..127180225 100644
|
|
|
3efd08 |
--- a/common/mltools/tools_utils.ml
|
|
|
3efd08 |
+++ b/common/mltools/tools_utils.ml
|
|
|
3efd08 |
@@ -32,7 +32,7 @@ and key_store_key =
|
|
|
3efd08 |
external c_inspect_decrypt : Guestfs.t -> int64 -> (string * key_store_key) list -> unit = "guestfs_int_mllib_inspect_decrypt"
|
|
|
3efd08 |
external c_set_echo_keys : unit -> unit = "guestfs_int_mllib_set_echo_keys" "noalloc"
|
|
|
3efd08 |
external c_set_keys_from_stdin : unit -> unit = "guestfs_int_mllib_set_keys_from_stdin" "noalloc"
|
|
|
3efd08 |
-external c_rfc3999_date_time_string : unit -> string = "guestfs_int_mllib_rfc3999_date_time_string"
|
|
|
3efd08 |
+external c_rfc3339_date_time_string : unit -> string = "guestfs_int_mllib_rfc3339_date_time_string"
|
|
|
3efd08 |
|
|
|
3efd08 |
type machine_readable_fn = {
|
|
|
3efd08 |
pr : 'a. ('a, unit, string, unit) format4 -> 'a;
|
|
|
3efd08 |
@@ -93,7 +93,7 @@ let log_as_json msgtype msg =
|
|
|
3efd08 |
| Some { pr } ->
|
|
|
3efd08 |
let json = [
|
|
|
3efd08 |
"message", JSON.String msg;
|
|
|
3efd08 |
- "timestamp", JSON.String (c_rfc3999_date_time_string ());
|
|
|
3efd08 |
+ "timestamp", JSON.String (c_rfc3339_date_time_string ());
|
|
|
3efd08 |
"type", JSON.String msgtype;
|
|
|
3efd08 |
] in
|
|
|
3efd08 |
pr "%s\n" (JSON.string_of_doc ~fmt:JSON.Compact json)
|
|
|
3efd08 |
diff --git a/lib/guestfs.pod b/lib/guestfs.pod
|
|
|
3efd08 |
index 3c1d635c5..af944ddb7 100644
|
|
|
3efd08 |
--- a/lib/guestfs.pod
|
|
|
3efd08 |
+++ b/lib/guestfs.pod
|
|
|
3efd08 |
@@ -3295,7 +3295,7 @@ within a single line, below it is indented for readability):
|
|
|
3efd08 |
C<type> can be: C<message> for progress messages, C<info> for
|
|
|
3efd08 |
information messages, C<warning> for warning messages, and C<error>
|
|
|
3efd08 |
for error message.
|
|
|
3efd08 |
-C<timestamp> is the L<RFC 3999|https://www.ietf.org/rfc/rfc3339.txt>
|
|
|
3efd08 |
+C<timestamp> is the L<RFC 3339|https://www.ietf.org/rfc/rfc3339.txt>
|
|
|
3efd08 |
timestamp of the message.
|
|
|
3efd08 |
|
|
|
3efd08 |
In addition to that, a subset of these tools support an extra string
|
|
|
3efd08 |
--
|
|
|
da373f |
2.18.4
|
|
|
3efd08 |
|