Permalink
Browse files

Bumped transformers-base dependency to 0.3

  • Loading branch information...
1 parent 8bb0068 commit bad47586814faee659056f6bbc8365fb5cfe71d2 @mvv committed Nov 8, 2011
Showing with 3 additions and 3 deletions.
  1. +1 −1 data-timeout.cabal
  2. +2 −2 src/Control/Concurrent/Timeout.hs
View
@@ -26,7 +26,7 @@ Source-Repository head
Library
Build-Depends:
base >= 4 && < 5,
- transformers-base >= 0.1
+ transformers-base >= 0.3
Hs-Source-Dirs: src
GHC-Options: -Wall
Exposed-Modules:
@@ -29,7 +29,7 @@ instance Exception TimeoutException
-- | 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 @@ timeout tt io = liftBase $ do
-- | 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

0 comments on commit bad4758

Please sign in to comment.