Extra.hs

{-# LANGUAGE CPP #-}

-- | Extra functions for the current system info.
module System.Info.Extra(
    module System.Info,
    isWindows,
    isMac,
    ) where

import System.Info

---------------------------------------------------------------------
-- System.Info

-- | Return 'True' on Windows and 'False' otherwise. A runtime version of @#ifdef minw32_HOST_OS@.
--   Equivalent to @os == \"mingw32\"@, but: more efficient; doesn't require typing an easily
--   mistypeable string; actually asks about your OS not a library; doesn't bake in
--   32bit assumptions that are already false. \<\/rant\>
--
-- > isWindows == (os == "mingw32")
isWindows :: Bool
#if defined(mingw32_HOST_OS)
isWindows = True
#else
isWindows = False
#endif

-- | Return 'True' on Mac OS X and 'False' otherwise.
isMac :: Bool
#if defined(darwin_HOST_OS)
isMac = True
#else
isMac = False
#endif