diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-06-17 19:10:51 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-06-17 19:27:54 -0400 |
| commit | 89c188fac37c20c40b0a9dabeb35403cfa4e4f52 (patch) | |
| tree | 667d76e0d072dcee754f5f61eed5c6bcade232ce /Utility/LogFile.hs | |
| parent | 613725496fd5da37109c4a345077058ebe6955c1 (diff) | |
Windows: Assistant now logs to daemon.log.
Yes, this means that git annex webapp on windows execs git-annex, which
execs itself to set env, and the execs itself again to redirect logs.
This is disgusting. This is Windows(TM).
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 |