module Util.Date
  ( utcToLocalDay
  ) where

import           Data.Time.Calendar  (Day)
import           Data.Time.Clock     (UTCTime)
import qualified Data.Time.LocalTime as LocalTime

utcToLocalDay :: UTCTime -> IO Day
utcToLocalDay time = do
  timezone <- LocalTime.getCurrentTimeZone
  return . LocalTime.localDay $ LocalTime.utcToLocalTime timezone time