summaryrefslogtreecommitdiff
path: root/Utility/LogFile.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Utility/LogFile.hs')
-rw-r--r--Utility/LogFile.hs7
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