diff options
Diffstat (limited to 'Utility/LogFile.hs')
-rw-r--r-- | Utility/LogFile.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Utility/LogFile.hs b/Utility/LogFile.hs index e84b72b2e..e4f90d418 100644 --- a/Utility/LogFile.hs +++ b/Utility/LogFile.hs @@ -15,13 +15,10 @@ import Common import System.Posix.Types #endif -#ifndef mingw32_HOST_OS -openLog :: FilePath -> IO Fd +openLog :: FilePath -> IO Handle openLog logfile = do rotateLog logfile - openFd logfile WriteOnly (Just stdFileMode) - defaultFileFlags { append = True } -#endif + openFile logfile AppendMode rotateLog :: FilePath -> IO () rotateLog logfile = go 0 |