-- DateTime functions

getDateTimeAsString :: IO T.Text
getDateTimeAsString = do
  zonedDateTime <- ZT.getZonedTime
  let localDateTime = ZT.zonedTimeToLocalTime zonedDateTime
      localDate = ZT.localDay localDateTime
      localTime = ZT.localTimeOfDay localDateTime
      localDateString = show localDate
      localUnformattedTimeString = show localTime
      localTimeString = Prelude.head $ LS.splitOn "." localUnformattedTimeString
  return $ T.pack (localDateString ++ " " ++ localTimeString)
getDateTimeAsString :: IO T.Text
getDateTimeAsString = do
  zonedDateTime <- ZT.getZonedTime
  let localDateTime = ZT.zonedTimeToLocalTime zonedDateTime
      localDate = ZT.localDay localDateTime
      localTime = ZT.localTimeOfDay localDateTime
      localDateString = show localDate
      localUnformattedTimeString = show localTime
      localTimeString = Prelude.head $ LS.splitOn "." localUnformattedTimeString
  return $ T.pack (localDateString ++ " " ++ localTimeString)
getDateTimeAsString = do
  zonedDateTime <- ZT.getZonedTime
  let localDateTime = ZT.zonedTimeToLocalTime zonedDateTime
      localDate = ZT.localDay localDateTime
      localTime = ZT.localTimeOfDay localDateTime
      localDateString = show localDate
      localUnformattedTimeString = show localTime
      localTimeString = Prelude.head $ LS.splitOn "." localUnformattedTimeString
  return $ T.pack (localDateString ++ " " ++ localTimeString)