X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2FinstallPackage.hs;h=14069e81e15ba8fb4526a5c4e63aac4ac2ba1719;hb=16887826bafb60d504f925d4aa09236c65d01121;hp=d42bf8cfbe94ed40c1b32118a9d4018a066f84df;hpb=45d278c6376b55399671e4e87fd59e75f33c354b;p=ghc-hetmet.git

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index d42bf8c..14069e8 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -8,6 +8,7 @@ import Distribution.Simple.Utils
 import Distribution.Verbosity
 import System.Cmd
 import System.Environment
+import System.Info
 
 main :: IO ()
 main = do args <- getArgs
@@ -44,7 +45,8 @@ doit pref ghcpkg verbosity =
           lbi <- getPersistBuildConfig
           let -- XXX These are almighty hacks, shadowing the base
               -- Setup.hs hacks
-              extraExtraLibs = if pkgName (package pd) == "base"
+              extraExtraLibs = if (os == "mingw32") &&
+                                  (pkgName (package pd) == "base")
                                then ["wsock32", "msvcrt", "kernel32",
                                      "user32", "shell32"]
                                else []