{-# LANGUAGE CPP #-}
#if __GLASGOW_HASKELL__ >= 704
{-# LANGUAGE Safe #-}
#elif __GLASGOW_HASKELL__ >= 702
{-# LANGUAGE Trustworthy #-}
#endif
module System.Console.MinTTY (isMinTTY, isMinTTYHandle, HANDLE) where
#if defined(WINDOWS)
import System.Win32.Types (HANDLE)
# if MIN_VERSION_Win32(2,13,1)
import qualified System.Win32.MinTTY as Win32 (isMinTTY, isMinTTYHandle)
# else
import qualified System.Console.MinTTY.Win32 as Win32 (isMinTTY, isMinTTYHandle)
# endif
#else /* not Windows */
import Foreign.Ptr (Ptr)
#endif
isMinTTY :: IO Bool
#if defined(WINDOWS)
isMinTTY = Win32.isMinTTY
#else
isMinTTY :: IO Bool
isMinTTY = Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
False
#endif
isMinTTYHandle :: HANDLE -> IO Bool
#if defined(WINDOWS)
isMinTTYHandle = Win32.isMinTTYHandle
#else
isMinTTYHandle :: HANDLE -> IO Bool
isMinTTYHandle HANDLE
_ = Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
False
#endif
#if !defined(WINDOWS)
type HANDLE = Ptr ()
#endif