time-1.12: test/ShowDefaultTZAbbreviations.hs

module Main where

import Data.Time

showTZ :: TimeZone -> String
showTZ tz =
    (formatTime defaultTimeLocale "%Z %z" tz)
        ++ ( if timeZoneSummerOnly tz
                then " DST"
                else ""
           )

main :: IO ()
main = mapM_ (\tz -> putStrLn (showTZ tz)) (knownTimeZones defaultTimeLocale)