ghcup-hs/lib/GHCup/Prelude/Posix.hs

20 lines
533 B
Haskell
Raw Permalink Normal View History

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