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

getCurrentLocalTime

Browse Source
This commit is contained in:
Simon Michael 2009-01-25 06:47:05 +00:00
parent aa607b1297
commit 415c48d855
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Ledger/Utils.hs
View File

@ -233,6 +233,13 @@ spacenonewline = satisfy (\c -> c `elem` " \v\f\t")
restofline :: GenParser Char st String restofline :: GenParser Char st String
restofline = anyChar `manyTill` newline restofline = anyChar `manyTill` newline
-- time
getCurrentLocalTime :: IO LocalTime
getCurrentLocalTime = do
t <- getCurrentTime
tz <- getCurrentTimeZone
return $ utcToLocalTime tz t