From bb7750474c353cf0907af41d6ca3fae0f830aa17 Mon Sep 17 00:00:00 2001
From: Stuart Tettemer <stuart.tettemer@gmail.com>
Date: Sat, 28 Feb 2015 20:19:47 -0800
Subject: [PATCH] pass Core.Zone.local to Time.to_sec_string in log_entry

---
 code/guided-tour/main.topscript | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/guided-tour/main.topscript b/code/guided-tour/main.topscript
index 73fd741..5d5fb4d 100644
--- a/code/guided-tour/main.topscript
+++ b/code/guided-tour/main.topscript
@@ -147,7 +147,7 @@ let log_entry maybe_time message =
       | Some x -> x
       | None -> Time.now ()
     in
-    Time.to_sec_string time ^ " -- " ^ message
+    Time.to_sec_string ~zone:Core.Zone.local (time) ^ " -- " ^ message
   ;;
 log_entry (Some Time.epoch) "A long long time ago";;
 log_entry None "Up to the minute";;