From 1aa4db5e6883b4ffa6ea0f9c3450c0c15e40f543 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 24 Jul 2008 18:28:31 +0000 Subject: [PATCH] Fix building runghc on Windows --- utils/runghc/runghc.hs | 6 ++++++ 1 file changed, 6 insertions(+) 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 -- 1.7.10.4