import Data.Time.Clock.POSIX (posixSecondsToUTCTime) import Data.Time.Format (formatTime, defaultTimeLocale) -- Convert Unix timestamp to DateTime (2020 timestamp) unixTimestamp :: Integer unixTimestamp = 988159889 dateTime :: UTCTime dateTime = posixSecondsToUTCTime (fromInteger unixTimestamp) main :: IO () main = putStrLn $ "Converted Date: " ++ formatTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" dateTime
posixSecondsToUTCTime
UTCTime
formatTime
getCurrentTime
posixSecondsToUTCTime 1652602245
utcTimeToPOSIXSeconds
utcTimeToPOSIXSeconds dateTime
fromGregorian
Day
fromGregorian 2022 5 15
DiffTime
UTCTime (fromGregorian 2022 5 15) (secondsToDiffTime 30645)
formatTime defaultTimeLocale "%Y-%m-%d %H:%M:%S" dateTime
addUTCTime
addUTCTime 3600 dateTime
diffUTCTime
diffUTCTime time1 time2
secondsToDiffTime
secondsToDiffTime 30645
getZonedTime
ZonedTime