module CabalGild.Unstable.Class.MonadHandle where import qualified System.IO as IO class MonadHandle m where isTerminalDevice :: IO.Handle -> m Bool instance MonadHandle IO where isTerminalDevice :: Handle -> IO Bool isTerminalDevice = Handle -> IO Bool IO.hIsTerminalDevice