mirror of
https://github.com/zhigang1992/graphql-engine.git
synced 2026-06-15 18:17:53 +08:00
17 lines
497 B
Haskell
17 lines
497 B
Haskell
module Control.Concurrent.Extended
|
|
( module Control.Concurrent
|
|
, threadDelay
|
|
) where
|
|
|
|
import Prelude
|
|
|
|
import qualified Control.Concurrent as Base
|
|
|
|
import Control.Concurrent hiding (threadDelay)
|
|
import Data.Time.Clock (DiffTime)
|
|
import Data.Time.Clock.Units (Microseconds (..))
|
|
|
|
-- | Like 'Base.threadDelay', but takes a 'DiffTime' instead of an 'Int'.
|
|
threadDelay :: DiffTime -> IO ()
|
|
threadDelay = Base.threadDelay . round . Microseconds
|