From 275f98b3be453c3dff966d5528b4f288e03a2dcc Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Fri, 21 Oct 2016 11:47:07 -0700
Subject: [PATCH] lib: getCurrentZonedTime

---
 hledger-lib/Hledger/Utils.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hledger-lib/Hledger/Utils.hs b/hledger-lib/Hledger/Utils.hs
index cad7838d4..c05fdab90 100644
--- a/hledger-lib/Hledger/Utils.hs
+++ b/hledger-lib/Hledger/Utils.hs
@@ -107,6 +107,12 @@ getCurrentLocalTime = do
   tz <- getCurrentTimeZone
   return $ utcToLocalTime tz t
 
+getCurrentZonedTime :: IO ZonedTime
+getCurrentZonedTime = do
+  t <- getCurrentTime
+  tz <- getCurrentTimeZone
+  return $ utcToZonedTime tz t
+
 -- misc
 
 isLeft :: Either a b -> Bool