Skip to content

Instantly share code, notes, and snippets.

@jaseemabid

jaseemabid/time.hs

Created October 30, 2015 13:43
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save jaseemabid/0bbf7ab2e0eac6c2ecaa to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save jaseemabid/0bbf7ab2e0eac6c2ecaa to your computer and use it in GitHub Desktop.
Download ZIP
Get current time as an integer
Raw
time.hs
-- Definitely not the best way to get current time as integer
currentPosixTime <- (getCurrentTime >>= return . utcTimeToPOSIXSeconds)
let currentTime = (round (read (init $ show(currentPosixTime)) :: Float) :: Integer)
@joehillen
Copy link
Copy Markdown

joehillen commented Oct 30, 2015

https://hackage.haskell.org/package/MissingH-1.3.0.1/docs/System-Time-Utils.html

@joehillen
Copy link
Copy Markdown

joehillen commented Oct 30, 2015

FWIW, if you think you ever need to call read on the result of show, you can be certain you're on the wrong track.

@jaseemabid
Copy link
Copy Markdown
Author

jaseemabid commented Oct 31, 2015

@joehillen Of course I knew I was wrong, but hoogle didn't give me a UTCTime -> Int or POSIXTime -> Int and this had to be done quick.

@jaseemabid
Copy link
Copy Markdown
Author

jaseemabid commented Oct 31, 2015

@joehillen Thanks for the links.

@jaseemabid
Copy link
Copy Markdown
Author

jaseemabid commented Nov 2, 2015

@joehillen seems like an exceptionally large package for the job. I might have to copy required functions verbatim.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment