time-1.4.0.2: Test/CurrentTime.hs

{-# OPTIONS -Wall -Werror #-}

module Main where

import Data.Time

main :: IO ()
main = do
	now <- getCurrentTime
	putStrLn (show (utctDay now) ++ "," ++ show (utctDayTime now))
	putStrLn (show (utcToZonedTime utc now :: ZonedTime))
	myzone <- getCurrentTimeZone
	putStrLn (show (utcToZonedTime myzone now :: ZonedTime))