2022-05-21 20:54:18 +00:00
|
|
|
module GHCup.Prelude.Posix where
|
2021-10-17 18:39:49 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
-- | Enables ANSI support on windows, does nothing on unix.
|
|
|
|
|
--
|
|
|
|
|
-- Returns 'Left str' on errors and 'Right bool' on success, where
|
|
|
|
|
-- 'bool' markes whether ansi support was already enabled.
|
|
|
|
|
--
|
|
|
|
|
-- This function never crashes.
|
|
|
|
|
--
|
|
|
|
|
-- Rip-off of https://docs.rs/ansi_term/0.12.1/x86_64-pc-windows-msvc/src/ansi_term/windows.rs.html#10-61
|
|
|
|
|
enableAnsiSupport :: IO (Either String Bool)
|
|
|
|
|
enableAnsiSupport = pure (Right True)
|
|
|
|
|
|
2022-05-21 20:54:18 +00:00
|
|
|
isWindows, isNotWindows :: Bool
|
|
|
|
|
isWindows = False
|
|
|
|
|
isNotWindows = not isWindows
|
|
|
|
|
|
|
|
|
|
|
