Haskell by Example: Epoch

original

import System.Locale
import Data.Time

main = do
    now <- getCurrentTime
    print now
    let secs  = read $ formatTime defaultTimeLocale "%s" now :: Integer
    let picos = read $ formatTime defaultTimeLocale "%s%q" now :: Integer
    let nanos = div picos 1000
    let millis = div picos 1000000000
    print secs
    print millis
    print nanos
    print (parseTime defaultTimeLocale "%s"   (show secs) ::  Maybe UTCTime)

$ runhaskell epoch.hs
2015-05-05 13:32:26.455623 UTC
1430832746
1430832746455
1430832746455623000
Just 2015-05-05 13:32:26 UTC

back to index