diff options
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 |