[commit: packages/directory] master: Add missing import on Windows in CreateDirectoryIfMissing001 (865b0f4)

git at git.haskell.org git at git.haskell.org
Fri Dec 18 09:53:13 UTC 2015


Repository : ssh://git@git.haskell.org/directory

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/865b0f4b92e2c18ecb346a15c71f99698022d11e/directory

>---------------------------------------------------------------

commit 865b0f4b92e2c18ecb346a15c71f99698022d11e
Author: Phil Ruffwind <rf at rufflewind.com>
Date:   Sun Oct 11 00:16:10 2015 -0400

    Add missing import on Windows in CreateDirectoryIfMissing001


>---------------------------------------------------------------

865b0f4b92e2c18ecb346a15c71f99698022d11e
 tests/CreateDirectoryIfMissing001.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/tests/CreateDirectoryIfMissing001.hs b/tests/CreateDirectoryIfMissing001.hs
index 339585d..bfa7089 100644
--- a/tests/CreateDirectoryIfMissing001.hs
+++ b/tests/CreateDirectoryIfMissing001.hs
@@ -6,13 +6,10 @@ import Control.Concurrent (forkIO, newEmptyMVar, putMVar, takeMVar)
 import qualified Control.Exception as E
 import Control.Monad (replicateM_)
 import Data.Monoid ((<>))
-import System.FilePath ((</>), addTrailingPathSeparator)
-import System.IO.Error(isAlreadyExistsError, isDoesNotExistError,
-                       isPermissionError)
-#ifndef mingw32_HOST_OS
 import GHC.IO.Exception (IOErrorType(InappropriateType))
-import System.IO.Error(ioeGetErrorType)
-#endif
+import System.FilePath ((</>), addTrailingPathSeparator)
+import System.IO.Error (ioeGetErrorType, isAlreadyExistsError,
+                        isDoesNotExistError, isPermissionError)
 
 main :: TestEnv -> IO ()
 main _t = do



More information about the ghc-commits mailing list