Fix warnings
authorIan Lynagh <igloo@earth.li>
Thu, 21 Aug 2008 17:32:37 +0000 (17:32 +0000)
committerIan Lynagh <igloo@earth.li>
Thu, 21 Aug 2008 17:32:37 +0000 (17:32 +0000)
Main.hs

diff --git a/Main.hs b/Main.hs
index 0cfa7f9..3a50071 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -18,7 +18,6 @@ import Control.Monad            ( MonadPlus(..), liftM, liftM2, when )
 import Data.Char                ( isAlpha, isAlphaNum, isSpace, isDigit,
                                   toUpper, intToDigit, ord )
 import Data.List                ( intersperse, isSuffixOf )
-import System.Cmd               ( system, rawSystem )
 import System.Console.GetOpt
 
 #if defined(mingw32_HOST_OS)
@@ -36,6 +35,11 @@ import System.IO                ( openFile, IOMode(..), hClose )
 #define HAVE_runProcess
 #endif
 
+import System.Cmd               ( rawSystem )
+#ifndef HAVE_runProcess
+import System.Cmd               ( system )
+#endif
+
 import IO                ( bracket_ )
 
 #ifndef BUILD_NHC