git.iko.soy/typeable/timezone-olson
on master help sign in
typeable/timezone-olson/catTZ.hs
14 lines 489 B history raw
1-- | Parse an Olson timezone file, then render it.
2-- If -i is specified, interpret it as a TimeZoneSeries before rendering.
3module Main where
5import Data.Time.LocalTime.TimeZone.Olson
6import Data.Time.LocalTime.TimeZone.Series
7import System.Environment
9main = do
10 args <- getArgs
11 if head args == "-i"
12 then getTimeZoneSeriesFromOlsonFile (args !! 1) >>=
13 renderTimeZoneSeriesToOlsonFile (args !! 2)
14 else getOlsonFromFile (args !! 0) >>= renderOlsonToFile (args !! 1)