netclock 0.4 → 0.5

raw patch · 2 files changed

+5/−6 lines, 2 filesdep ~hoscPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: hosc

API changes (from Hackage documentation)

Files

• Network/Netclock/Client.hs +4/−5
• netclock.cabal +1/−1

@@ -39,7 +39,7 @@ waitBeat :: BpsChange -> Double -> IO () waitBeat change beat =      do let logicalNow = logicalTime change beat-       realNow <- utcr+       realNow <- time        let diff = logicalNow - realNow        let delay = floor $ diff * 1000000.0        when (diff > 0) $ threadDelay delay@@ -50,7 +50,7 @@   do mBps <- newEmptyMVar      forkIO $ bpsListen username clientIp serverIp mBps      change <- updateBps mBps 0-     realNow <- utcr+     realNow <- time      let diff = realNow - changeTime change          bps = changeBps change          beat = changeBeat change + (diff * bps)@@ -65,7 +65,7 @@     do mBps <- newEmptyMVar        forkIO $ bpsListen username clientIp serverIp mBps        change <- updateBps mBps 0-       realNow <- utcr+       realNow <- time        let diff = realNow - changeTime change            bps = changeBps change            beat = changeBeat change + (diff * bps)@@ -134,9 +134,8 @@        let (Message _ (absBeat:bps:_)) = head message            absBeatF = toFloat absBeat            bpsF = toFloat bps-       let time = (as_utcr t)        return BpsChange {changeBps = bpsF,-                         changeTime = time, +                         changeTime = t,                           changeBeat = absBeatF                         } 

@@ -7,7 +7,7 @@ -- The package version. See the Haskell package versioning policy -- (http://www.haskell.org/haskellwiki/Package_versioning_policy) for -- standards guiding when and how versions should be incremented.-Version:             0.4+Version:             0.5  -- A short (one-line) description of the package. Synopsis:            Netclock protocol