diff --git a/Control/Concurrent/Delay.hs b/Control/Concurrent/Delay.hs
new file mode 100644
--- /dev/null
+++ b/Control/Concurrent/Delay.hs
@@ -0,0 +1,46 @@
+-- | Delay the current thread with an unbound number of milliseconds.
+
+module Control.Concurrent.Delay
+  (delayMicrosecs
+  ,delayMillisecs
+  ,delaySeconds
+  ,delayMinutes
+  ,delayHours
+  ,delayDays
+  ) where
+
+import Control.Concurrent
+
+-- | Suspends the current thread for a given number of microseconds.
+--
+-- There is no guarantee that the thread will be rescheduled promptly
+-- when the delay has expired, but the thread will never continue to
+-- run earlier than specified.
+delayMicrosecs :: Integer -> IO ()
+delayMicrosecs microsecs
+  | microsecs <= fromIntegral maxMicrosecs = threadDelay (fromIntegral microsecs)
+  | otherwise = do
+    threadDelay maxMicrosecs
+    delayMicrosecs (microsecs - fromIntegral maxMicrosecs)
+
+  where maxMicrosecs = maxBound :: Int
+
+-- | Delay the current thread for at least n milliseconds.
+delayMillisecs :: Integer -> IO ()
+delayMillisecs = delayMicrosecs . (*1000)
+
+-- | Delay the current thread for at least n seconds.
+delaySeconds :: Integer -> IO ()
+delaySeconds = delayMillisecs . (* 1000)
+
+-- | Delay the current thread for at least n minutes.
+delayMinutes :: Integer -> IO ()
+delayMinutes = delaySeconds . (*60)
+
+-- | Delay the current thread for at least n hours.
+delayHours :: Integer -> IO ()
+delayHours = delayMinutes . (*60)
+
+-- | Delay the current thread for at least n days.
+delayDays :: Integer -> IO ()
+delayDays = delayHours . (*24)
diff --git a/monad-extras.cabal b/monad-extras.cabal
--- a/monad-extras.cabal
+++ b/monad-extras.cabal
@@ -1,5 +1,5 @@
 name:           monad-extras
-version:        0.3.1.0
+version:        0.3.2.0
 synopsis:       Extra utility functions for working with monads
 -- description:
 homepage:       http://github.com/jwiegley/monad-extras
@@ -15,7 +15,7 @@
 library
     default-language: Haskell98
     exposed-modules:
-        Control.Monad.Extra
+        Control.Monad.Extra, Control.Concurrent.Delay
     build-depends:
         base >= 4 && < 5
       , transformers