showDayRfc822 :: Day -> T.Text
showDayRfc822 d =
  T.pack $ formatTime defaultTimeLocale rfc822DateFormat $ (UTCTime d (secondsToDiffTime 0))
showDayRfc822 :: Day -> T.Text
showDayRfc822 d =
  T.pack $ formatTime defaultTimeLocale rfc822DateFormat $ (UTCTime d (secondsToDiffTime 0))
showDayRfc822 d =
  T.pack $ formatTime defaultTimeLocale rfc822DateFormat $ (UTCTime d (secondsToDiffTime 0))