Wibble

Author: hasufell

tests/T15Win.hs

@@ -12,7 +12,6 @@ import qualified System.File.PlatformPath as PFP
 import System.IO
 import System.IO.Temp
 
-import Control.Exception (bracketOnError)
 import Data.Bits
 import System.OsPath.Windows ( WindowsPath, pstr )
 import qualified System.OsPath.Windows as WS
@@ -36,7 +35,7 @@ main = withSystemTempDirectory "tar-test" $ \baseDir' -> do
     ]
 
 openFile32 :: WindowsPath -> IOMode -> IO Win32.HANDLE
-openFile32 fp iomode =
+openFile32 fp _iomode =
     WS.createFile
       fp
       Win32.gENERIC_READ

windows/System/File/Platform.hsc

@@ -81,7 +81,7 @@ openFile fp' iomode = (`ioeSetWsPath` fp') `modifyIOError` do
 #endif
       Nothing)
     Win32.closeHandle
-    (toHandle fp iomode)
+    (toHandle fp' iomode)
  where
   accessMode = case iomode of
     ReadMode      -> Win32.gENERIC_READ