diff options
Diffstat (limited to 'ghc/GHCi/UI.hs')
| -rw-r--r-- | ghc/GHCi/UI.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index ab6c2dc199..52a809ea3d 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -122,7 +122,7 @@ import Text.Read.Lex (isSymbolChar) import Unsafe.Coerce -#ifndef mingw32_HOST_OS +#if !defined(mingw32_HOST_OS) import System.Posix hiding ( getEnv ) #else import qualified System.Win32 @@ -379,7 +379,7 @@ findEditor :: IO String findEditor = do getEnv "EDITOR" `catchIO` \_ -> do -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) win <- System.Win32.getWindowsDirectory return (win </> "notepad.exe") #else @@ -669,7 +669,7 @@ checkFileAndDirPerms file = do d -> d checkPerms :: FilePath -> IO Bool -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) checkPerms _ = return True #else checkPerms file = @@ -720,7 +720,7 @@ formatCurrentTime format = getUserName :: IO String getUserName = do -#ifdef mingw32_HOST_OS +#if defined(mingw32_HOST_OS) getEnv "USERNAME" `catchIO` \e -> do putStrLn $ show e |