August 17, 2022 @WAT Every hour of the day is a miracle… hourOfDay :: UTCTime -> Int hourOfDay = read . formatTime defaultTimeLocale "%H"