-------------------------------------------------------------------------------
getTime :: IO Double
getTime = realToFrac `fmap` getPOSIXTime
getTime :: IO Double
getTime = realToFrac `fmap` getPOSIXTime
getTime = realToFrac `fmap` getPOSIXTime