fix all remaining -Wall warnings on Windows

Utility/LogFile.hs

@@ -11,7 +11,9 @@ module Utility.LogFile where
 
 import Common
 
+#ifndef mingw32_HOST_OS
 import System.Posix.Types
+#endif
 
 #ifndef mingw32_HOST_OS
 openLog :: FilePath -> IO Fd

Utility/Path.hs

@@ -18,7 +18,6 @@ import Data.Char
 import Control.Applicative
 
 #ifdef mingw32_HOST_OS
-import Data.Char
 import qualified System.FilePath.Posix as Posix
 #else
 import System.Posix.Files

Utility/WebApp.hs

@@ -23,7 +23,6 @@ import Network.HTTP.Types
 import System.Log.Logger
 import qualified Data.CaseInsensitive as CI
 import Network.Socket
-import Control.Exception
 import "crypto-api" Crypto.Random
 import qualified Web.ClientSession as CS
 import qualified Data.ByteString.Lazy as L
@@ -39,6 +38,10 @@ import Control.Concurrent
 #ifdef __ANDROID__
 import Data.Endian
 #endif
+#if defined(__ANDROID__) || defined (mingw32_HOST_OS)
+#else
+import Control.Exception (bracketOnError)
+#endif
 
 localhost :: HostName
 localhost = "localhost"

Utility/WinProcess.hs

@@ -11,9 +11,5 @@ module Utility.WinProcess where
 
 import Utility.PID
 
-import System.Win32.Process
-import Foreign.C
-import Control.Exception
-
 foreign import ccall unsafe "terminatepid"
 	terminatePID :: PID -> IO ()