time-1.5: 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)