diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-04 13:54:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-04 14:05:36 -0400 |
| commit | 8d2f003c63e0c1db0758e06f02b999365f8413a9 (patch) | |
| tree | 1d8dbda0065630a5b1f153249ea12ce17e4e68e0 /Utility/LogFile.hs | |
| parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) | |
avoid more build warnings on Windows
Diffstat (limited to 'Utility/LogFile.hs')
| -rw-r--r-- | Utility/LogFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/LogFile.hs b/Utility/LogFile.hs index 25f2e10fe..090ac60d0 100644 --- a/Utility/LogFile.hs +++ b/Utility/LogFile.hs @@ -58,8 +58,8 @@ redirLog logfd = do redirLog _ = error "redirLog TODO" #endif -#ifndef mingw32_HOST_OS redir :: Fd -> Fd -> IO () +#ifndef mingw32_HOST_OS redir newh h = do closeFd h void $ dupTo newh h |