[project @ 2003-12-23 13:58:17 by simonmar]
[haskell-directory.git] / GHC / IO.hs
index d494a31..24a0653 100644 (file)
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -47,6 +47,10 @@ import GHC.Show
 import GHC.List
 import GHC.Exception    ( ioError, catch )
 
+#ifdef mingw32_TARGET_OS
+import GHC.Conc
+#endif
+
 -- ---------------------------------------------------------------------------
 -- Simple input operations