Utilities.hs

module Test.Framework.Runners.Console.Utilities (
        hideCursorDuring
    ) where

import System.Console.ANSI

import Control.Exception

import Prelude hiding (catch)


hideCursorDuring :: IO a -> IO a
hideCursorDuring action = bracket hideCursor (const showCursor) (const action)