avoid more build warnings on Windows

This commit is contained in:
Joey Hess 2013-08-04 13:54:09 -04:00
parent fc96861084
commit a3224ce35b
12 changed files with 29 additions and 20 deletions

View file

@ -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