X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Frunghc%2Frunghc.hs;h=911d0f8f9de8558b36215079876f846a1302e9bc;hb=1aa4db5e6883b4ffa6ea0f9c3450c0c15e40f543;hp=5053858b20b0ceb724cb483c143b0cff72d19749;hpb=d4ecd3d07eeea6e66e4da40f9675e59c8afd5498;p=ghc-hetmet.git

diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs
index 5053858..911d0f8 100644
--- a/utils/runghc/runghc.hs
+++ b/utils/runghc/runghc.hs
@@ -32,6 +32,12 @@ import System.Exit
 import System.FilePath
 import System.IO
 
+#if defined(mingw32_HOST_OS)
+import Control.Monad
+import Foreign
+import Foreign.C.String
+#endif
+
 main :: IO ()
 main = do
     args <- getArgs