-- | What do build 'bots dream about?
module BuildBox.Command.Sleep
        ( sleep
        , msleep)
where
import BuildBox.Build
import Control.Concurrent


-- | Sleep for a given number of seconds.
sleep :: Int -> Build ()
sleep secs      
        = io $ threadDelay $ secs * 1000000

        
-- | Sleep for a given number of milliseconds.
msleep :: Int -> Build ()
msleep msecs
        = io $ threadDelay $ msecs * 1000