src/fuck.hs

   1 import Data.Time.Clock
   2 import Data.Time.Clock.POSIX
   3 import Data.Time.Format
   4 import Data.Time.LocalTime
   5
   6 a = posixSecondsToUTCTime 123456789
   7
   8 tz = hoursToTimeZone 8
   9
  10 timeStampToDateString :: UTCTime -> String
  11 timeStampToDateString time = formatTime defaultTimeLocale "%d %B %Y" (utcToLocalTime tz (time))