-- | While the action is executing, do not update the progress bar.
--   Useful for functions which do a large amount of computation, or have loops.
hideProgress :: Action a -> Action a
hideProgress act = do
    fun <- fmap newFun unique
    (xs, v) <- capture act
    emit $ Function fun xs
    emit $ Call fun
    return v

-- | Sleep time in milliseconds
hideProgress :: Action a -> Action a
hideProgress act = do
    fun <- fmap newFun unique
    (xs, v) <- capture act
    emit $ Function fun xs
    emit $ Call fun
    return v

-- | Sleep time in milliseconds
hideProgress act = do
    fun <- fmap newFun unique
    (xs, v) <- capture act
    emit $ Function fun xs
    emit $ Call fun
    return v

-- | Sleep time in milliseconds