slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lib: getCurrentZonedTime

Browse Source
This commit is contained in:
Simon Michael 2016-10-21 11:47:07 -07:00
parent 843c417079
commit 275f98b3be
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Utils.hs
View File

@ -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