fixed hour constant in Time.hs