time :: IO R1
time = (vec1 . fromRational . toRational . utctDayTime) <$> getCurrentTime
time :: IO R1
time = (vec1 . fromRational . toRational . utctDayTime) <$> getCurrentTime
time = (vec1 . fromRational . toRational . utctDayTime) <$> getCurrentTime