From d515d53824bc0f18cbea805caad2f3918e6a8b40 Mon Sep 17 00:00:00 2001 From: Juergen Hoetzel Date: Sat, 22 Nov 2014 20:04:43 +0100 Subject: [PATCH] Use Time.Zone module instead of Zone Zone was removed from Core.Std since version 109.42.00 --- code/imperative-programming/time_converter.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/imperative-programming/time_converter.ml b/code/imperative-programming/time_converter.ml index 4ab8caf..bb6647e 100644 --- a/code/imperative-programming/time_converter.ml +++ b/code/imperative-programming/time_converter.ml @@ -6,10 +6,10 @@ let () = match In_channel.input_line stdin with | None -> failwith "No timezone provided" | Some zone_string -> - let zone = Zone.find_exn zone_string in + let zone = Time.Zone.find_exn zone_string in let time_string = Time.to_string_abs (Time.now ()) ~zone in Out_channel.output_string stdout (String.concat - ["The time in ";Zone.to_string zone;" is ";time_string;".\n"]); + ["The time in ";Time.Zone.to_string zone;" is ";time_string;".\n"]); Out_channel.flush stdout