getModTime :: FilePath -> IO EpochTime
getModTime path = do
  time <- getModificationTime path
  return $! floor $ utcTimeToPOSIXSeconds time
getModTime :: FilePath -> IO EpochTime
getModTime path = do
  time <- getModificationTime path
  return $! floor $ utcTimeToPOSIXSeconds time
getModTime path = do
  time <- getModificationTime path
  return $! floor $ utcTimeToPOSIXSeconds time