tilia-0.1.0.0: corpora/vendored/other/cpp/one-question-asked-twice-with-a-comment-between-out.hs

{-# LANGUAGE CPP #-}

module Terminal.Console (isConsole) where

#ifdef WINDOWS
import System.Win32.Console (getConsoleMode)
#endif

-- Everything below works the same everywhere.

#ifdef WINDOWS
isConsole :: Handle -> IO Bool
isConsole h = (/= 0) <$> getConsoleMode h
#endif