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