summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-06-17 19:10:51 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-06-17 19:27:54 -0400
commit89c188fac37c20c40b0a9dabeb35403cfa4e4f52 (patch)
tree667d76e0d072dcee754f5f61eed5c6bcade232ce /Utility
parent613725496fd5da37109c4a345077058ebe6955c1 (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')
-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