date :: String -> IO String
date format = liftM (formatTime defaultTimeLocale format) getZonedTime
date :: String -> IO String
date format = liftM (formatTime defaultTimeLocale format) getZonedTime
date format = liftM (formatTime defaultTimeLocale format) getZonedTime