adjustSyncTime syncTime timeSynced = do
    now <- fmap floor POSIX.getPOSIXTime
    return $ syncTime + (now - timeSynced)
adjustSyncTime syncTime timeSynced = do
    now <- fmap floor POSIX.getPOSIXTime
    return $ syncTime + (now - timeSynced)
adjustSyncTime syncTime timeSynced = do
    now <- fmap floor POSIX.getPOSIXTime
    return $ syncTime + (now - timeSynced)