Switch branches/tags
Nothing to show
Find file Copy path
bd9fe2c Aug 17, 2013
2 contributors

Users who have contributed to this file

@yminsky @avsm
16 lines (13 sloc) 486 Bytes
open Core.Std
let () =
Out_channel.output_string stdout "Pick a timezone: ";
Out_channel.flush stdout;
match In_channel.input_line stdin with
| None -> failwith "No timezone provided"
| Some zone_string ->
let zone = Zone.find_exn zone_string in
let time_string = Time.to_string_abs ( ()) ~zone in
Out_channel.output_string stdout
["The time in ";Zone.to_string zone;" is ";time_string;".\n"]);
Out_channel.flush stdout