[project @ 2003-06-19 10:38:15 by simonmar]

Fix Windows build

diff --git a/System/Cmd.hs b/System/Cmd.hs
index 4e7d284..0b093da 100644 (file)
--- a/System/Cmd.hs
+++ b/System/Cmd.hs
@@ -15,7 +15,7 @@
 module System.Cmd
     ( system,        -- :: String -> IO ExitCode
 #ifdef __GLASGOW_HASKELL__
-      rawSystem,     -- :: String -> IO ExitCode
+      rawSystem,     -- :: FilePath -> [String] -> IO ExitCode
 #endif
     ) where
 
@@ -26,6 +26,7 @@ import Foreign
 import Foreign.C
 import System.Exit
 import GHC.IOBase
+#include "config.h"
 #endif
 
 #ifdef __HUGS__