time-1.12.2: test/ShowTime.hs

module Main (main) where

import Data.Time

main :: IO ()
main = do
    now <- getZonedTime
    putStrLn $ show now