data-timeout 0.1.1 → 0.2
raw patch · 2 files changed
+4/−4 lines, 2 filesdep ~transformers-basePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: transformers-base
API changes (from Hackage documentation)
- Control.Concurrent.Timeout: threadDelay :: MonadBase μ IO => Timeout -> μ ()
+ Control.Concurrent.Timeout: threadDelay :: MonadBase IO μ => Timeout -> μ ()
- Control.Concurrent.Timeout: timeout :: MonadBase μ IO => Timeout -> IO α -> μ (Maybe α)
+ Control.Concurrent.Timeout: timeout :: MonadBase IO μ => Timeout -> IO α -> μ (Maybe α)
Files
data-timeout.cabal view
@@ -1,5 +1,5 @@ Name: data-timeout-Version: 0.1.1+Version: 0.2 Category: Data, Concurrency Stability: experimental Synopsis: 64-bit timeouts of nanosecond precision@@ -26,7 +26,7 @@ Library Build-Depends: base >= 4 && < 5,- transformers-base >= 0.1+ transformers-base >= 0.3 Hs-Source-Dirs: src GHC-Options: -Wall Exposed-Modules:
src/Control/Concurrent/Timeout.hs view
@@ -29,7 +29,7 @@ -- | A version of 'C.timeout' that takes 'Timeout' instead of number of -- microseconds.-timeout ∷ MonadBase μ IO ⇒ Timeout → IO α → μ (Maybe α)+timeout ∷ MonadBase IO μ ⇒ Timeout → IO α → μ (Maybe α) timeout tt _ | tt == instantly = return Nothing timeout tt io = liftBase $ do pid <- C.myThreadId@@ -42,7 +42,7 @@ -- | A version of 'C.threadDelay' that takes 'Timeout' instead of number of -- microseconds.-threadDelay ∷ MonadBase μ IO ⇒ Timeout → μ ()+threadDelay ∷ MonadBase IO μ ⇒ Timeout → μ () threadDelay tt | tt == instantly = return () threadDelay tt = liftBase $ C.threadDelay (fromIntegral us') >> go us' where us = tt #> MicroSecond