diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-02 12:27:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-02 12:27:32 -0400 |
| commit | 250a25c8572e557772a9973542f9cfca6ac10b9b (patch) | |
| tree | 7d4aaa36a7d5b6c3c5e03fb844fb844da4c037d2 /Utility/LogFile.hs | |
| parent | a39c161ab377eed381186bc57953cd59d6188108 (diff) | |
get rid of __WINDOWS__, use mingw32_HOST_OS
The latter is harder for me to remember, but avoids build failures in code
used by the configure program.
Diffstat (limited to 'Utility/LogFile.hs')
| -rw-r--r-- | Utility/LogFile.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Utility/LogFile.hs b/Utility/LogFile.hs index 339d6e8b9..25f2e10fe 100644 --- a/Utility/LogFile.hs +++ b/Utility/LogFile.hs @@ -14,7 +14,7 @@ import Common import System.Posix.Types openLog :: FilePath -> IO Fd -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS openLog logfile = do rotateLog logfile openFd logfile WriteOnly (Just stdFileMode) @@ -50,7 +50,7 @@ maxLogs :: Int maxLogs = 9 redirLog :: Fd -> IO () -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS redirLog logfd = do mapM_ (redir logfd) [stdOutput, stdError] closeFd logfd @@ -58,7 +58,7 @@ redirLog logfd = do redirLog _ = error "redirLog TODO" #endif -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS redir :: Fd -> Fd -> IO () redir newh h = do closeFd h |