get_current_time :: IO Time
get_current_time = posixtime_to_time `fmap` getPOSIXTime
get_current_time :: IO Time
get_current_time = posixtime_to_time `fmap` getPOSIXTime
get_current_time = posixtime_to_time `fmap` getPOSIXTime