move imports outside ifdef GHC

haskell · Jan 30, 2009 · 02464cd · 02464cd
1 parent 5483e8c
commit 02464cd
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Distribution/Compat/CopyFile.hs b/Distribution/Compat/CopyFile.hs
@@ -37,6 +37,7 @@ import System.IO
          ( openBinaryFile, IOMode(ReadMode), hClose, hGetBuf, hPutBuf )
 import Foreign
          ( allocaBytes )
+#endif /* __GLASGOW_HASKELL__ */
 
 #ifndef mingw32_HOST_OS
 import System.Posix.Types
@@ -52,9 +53,7 @@ import Foreign.C
 import Foreign.C
          ( throwErrnoIfMinus1_ )
 #endif
-#endif
-#endif
-
+#endif /* mingw32_HOST_OS */
 
 copyOrdinaryFile, copyExecutableFile :: FilePath -> FilePath -> IO ()
 copyOrdinaryFile   src dest = copyFile src dest >> setFileOrdinary   dest